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PROLOGO 


Cualquier nuevo microprocesador atrae a un gran número de 
autores y editores; una máquina realmente interesante y 
completa es un terreno fértil para un autor con imaginación, 
por ello, nosotros en AMSOFT, estamos particularmente 
agradecidos a Mark Harrison por llenar la mayoria de los 
huecos que inevitablemente ocurren en el manual original del 
usuario, asi como por hacer llegar al usuario normal, la 
mayoria de las utilidades generales de la máquina. 


Es verdaderamente relevante encontrar un autor que entienda 
la máquina tan bien y tan rápidamente, ya que la mayoria de 
los libros que se escriben cuando acaban de aparecer las 
máquinas, son virtuales copias de libros similares para 
otros ordenadores. Es también súmamente gratificante encon- 
trar un editor que desée continuar el estilo que nosotros 
hemos establecido para los libros de referencia de los 
sistemas - reduciendo al minimo los problemas que se crean 
por una mala interpretación. 


Hay muchisimas cosas que decir sobre el CPC464 - es 
realmente una máquina tanto para los principiantes como para 
los más experimentados. Esperamos que Mr. Harrison encuentre 
tiempo para continuar con su exploración, ya que libros como 
éste solo pueden beneficiar al producto y a sus usuarios. 


William Foel 
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CAPITULO UNO 
EL AMSTRAD 
INTRODUCCION 


El microprocesador Amstrad CPC 464 salió al mercado a 
mediados del año 1984. Tiene un diseño verdaderamente 
elegante y, a diferencia de otros micros de su mismo precio, 
es el único que se vende con su propio monitor y con un 
cassette incorporado. Esto le da una cierta ventaja sobre 
sus competidores, ya que el sistema completo consta 
solamente de dos unidades y un sencillo cable para la toma 
de corriente, dejando atrás la gran cantidad de cables que 
necesitan la mayoria de los microprocesadores. 


En muchos aspectos el Amstrad se asemeja a un iceberg, con 
los dos tercios de su potencia fuera de la vista. El 
propósito de este libro es progresar más allá del simple 
entendimiento de la funciones básicas para llegár a conocer 
todas las posibilidades del Amstrad. En principio asumimos 
que el usuario ha leido ya el manual del Amstrad y conoce 
bien términos como programa, flujo del programa, variables, 
BASIC, proceso de datos, software”, ”hardware” etc. No le 
vamos a hacer perder el tiempo con este tipo de cosas, asl 
que pasemos a una visión general del sistema Amstrad. 


LOS PRINCIPALES COMPONENTES DEL AMSTRAD CPC 464 
El Amstrad CPC 464, como la mayoria de los ordenadores, 
tiene varios componentes hardware”? en comán, los más 


importantes son la memoria, los dispositivos de E/S y la 
unidad central de proceso. 


pa 






Fig 1.1 Los principales componentes del Amstrad CPC 464 
Los componentes son: 
PROCESADOR 280 


La unidad central de proceso(CPU) del Amstrad es una Z80A y 
es la responsable de controlar todas las operaciones del 


ordenador. Es un procesador de bajo costo, adecuado para los 
sistemas pequeños y usado en muchas de las máquinas más 
populares como el Lynx, Sord o Sinclair por nombrar algunas. 
Otra función de la CPU es la de evaluar cualquier expresión 
matemática que implique suma, resta, multiplicación o 
división(aritmética) y también verificar si los números son 
positivos, negativos o cero(lógica). La necesidad de las 
funciones aritméticas es bastante clara. las funciones 
lógicas son necesarias para que el ordenador pueda tomar 
decisiones y conocer las acciones que debe realizar 
posteriormente. 


DISPOSITIVOS DE ENTRADA/SALIDA 


Los datos son introducidos y accedidos desde el Amstrad por 
medio de los dispositivos de entrada y salida (E/S), tales 
como el teclado y los *joystick” para entrada, la pantalla y 
el altavoz para salida, y el cassette o la unidad de Áigcos 
para ambos, entrada y salida. El Amstrad se vende con 
monitor de media resolución en color o con monitor monocromo 
verde de alta resolución. El teclado, de teclas móviles, 
está construido de forma estándar con disposición *qwerty” y 
con un teclado numérico adicional. El cassette que lleva 
incorporado usa un sistema de grabación avanzado para 
transferencia de datos y no es compatible con otros 
sistemas. En la parte posterior de la máquina hay varias 
puertas de expansión para interconectarse con impresoras, 
discos y otros periféricos. Actualmente se está desarrollan- 
do un sistema de ficheros en disco que serdá compatible con 
CP/M, 


MEMORIA 

La función de la memoria es la de almacenar todos los datos 
que tiene el sistema. El Amstrad contiene dos tipos 
diferentes, memoria de solo lectura (ROM) y memoria de 
acceso aleatorio (RAM), la diferencia entre ellas es: 


ROM RAM 
Esta memoria ha sido Es una memoria de uso general 
pre-programada por el en la que se almacenan los 
fabricante con datos datos y se sacan cuando se 
permanentes. Su conteni- necesitan. la RAM pierde su 
do no puede ser alterado. contenido cuando se apaga el 
ordenador. 


Una sección de la memoria RAM del Amstrad está reservada 
para el ?*software” del sistema, que está compuesto por un 
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Algunas caracteristicas de interes de la placa inferior son: 


La última fila de chips de izquierda a derecha: 

El generador de sonido, el controlador periférico, procesa- 
dor 7804, ULA de Ferranti. 

Los de la derecha, en frente del ULA, son los 64Kk de RAM. 


La ROM está en el extremo izquierdo, frente al generador de 
sonido. 


En la parte trasera se ven: la puerta de E/S, puertas de 
usuarzo, ¿nterfase de impresora, interfase de di5c05, entra- 
da de 54 (del monitor) y el conector del monitor. 


El pequeño c2rcuito de la derecha es el controlador del 
cassette. 


El circuito largo debajo del teclado, es su matriz de con- 
tactos. 


Fig 1.2 El sistema del microordenador Amstrad CPC 464 
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grupo de programas que se almacena permanentemente en el 
ordenador y que se usa para controlar las operaciones del 
sistema. Nos referiremos a él como "sistema operativo”. Y 
para evitar que pueda ser alterado por el usuaro oO borrado 
al desconectar el ordenador, el fabricante lo almacena en 
una ROM. Recuerde que los datos o programas almacenados en 
RAM se pierden si se desconecta el aparato. Más adelante 
veremos un mapa de la memoria del Amstrad, pero de momento 
le diremos que tiene 64K de RAM y 32k de ROM. 


Ahora vamos a ver cómo el Amstrad puede ejecutar una lista 
de instrucciones. 


EL LENGUAJE DE PROGRAMACION DEL AMSTRAD 


El Amstrad puede ser descrito brevemente como un 
dispositivo electrónico que utiliza una lista de instruccio- 
nes, llamadas programa, para recibir, memorizar, procesar y 
devolver datos. Solemos referirnos a esas instrucciones como 
"software" mientras que a los componentes físicos les 


llamamos "hardware". Es interesante notar que cuando 
aparecieron los ordenadores, el costo del "software" 
comercial era relativamente barato en comparación con el 
"hardware". Actualmente se ha invertido debido a la 


miniaturización masiva de circuitos electrónicos, mientras 
que la labor de los programadores que desarrollan el 
"software" se ha incrementado. 


Desafortunadamente, un ordenador es relativamente estápido 
y solo puede reconocer instrucciones en forma de códigos 
numéricos simples, tales como 50, 27 o 114. Por ejemplo, la 
instrucción para sumar dos números puede ser 35. Ya que el 
programa puede contener más de una instrución para que sea 
práctico, ese programa podria ser asi: 


¿91 27,133,211,23,39,59,221,10 ...... etc. 


Obviamente, este programa no tiene ningún significado para 
el que no conoce las instrucciones que representa cada 
código. Este tipo de programa se conoce como código de 
máquina y puede ser bastante dificil de usar. Los primeros 
programadores no tuvieron otra alternativa, pero enseguida 
se dieron cuenta de que era más fácil para ellos usar 
códigos que se parecieran más a las instrucciones reales 
(como "ADD","LOAD"). En este punto es preciso recordar al 
lector que el ordenador sólo puede entender un programa 
escrito en código de máquina, de modo que si el programa es 
escrito en código diferente, debe ser traducido al código de 
máquina equivalente. Este proceso de traducción es realizado 
por otro programa del ordenador. 


Un avance posterior fué el desarrollo de los lenguajes de 
alto nivel. Hay muchos y muy diferentes, los de uso más 
comán son Fortran, ALGOL, COBOL, Pascal, Coral y BASIC. La 
elección del lenguaje depende de su aplicación. Por ejemplo, 
una aplicación de negocios usará, probablente, el COBOL, 
mientras que una aplicación cientifica puede que use el 
FORTRAN o una aplicación que requiera que se produzcan los 
resultados en unos límites de tiempo estrictos, usará CORAL. 
A diferencia de los códigos de bajo nivel, como "ADD" y 
"LOAD", los códigos de los lenguajes de alto nivel no 
corresponden uno a uno con los de máquina , sino que permi- 
ten al programador acoplarse a la naturaleza del problema 
que trata de resolver. Por ejemplo, si se requiere hacer 
salir el mensaje "Correcto" cuando la respuesta sea 99, en 
el lenguaje de alto nivel lo escribiriamos asi: 


INFUT respuesta 

IF respuesta=99 

THEN OUTFUT "Correcto"; 
STOF'; 


Es evidente que el lenguaje de alto nivel, comparado con 
otros tipos de "software", es mucho más fácil de leer. Como 
ya hemos visto, para que el ordenador pueda entender este 
tipo de lenguaje, debe ser traducido a su equivalente en 
código de máquina; una vez que la versión en código de 
máquina está funcionando, no importa de donde ha venido. Hay 
dos métodos para traducir los lenguajes de alto nivel. El 
primero usa un programa llamado "compilador" que convierte 
todo el programa de alto nivel en código de máquima de una 
sola vez, dejando la versión de máquina lista para ser usada 
tantas veces como sea necesario. El segundo método, que es 
el que usa el Amstrad y otros micros que funcionan con 
BASIC, es lo que se llama un "intérprete" que convierte 
pequeñas partes de lenguaje de alto nivel en código de 
máquina, a medida que se va ejecutando. Interpretar progra- 
mas es mucho más lento que ejecutar una versión compilada 
pero, generalmente es más fácil de usar en un ordenador 
personal. 


El lenguaje de programación que usa el Amstrad es una de 
las múltiples versiones del BASIC (Beginners All-purpose 
Symbolic Instruction Code). Este lenguaje simple fué diseña- 
do originalmente para los principiantes pero se ha hecho el 
más popular de los lenguajes de programación. Á pesar de que 
se hicieron grandes esfuerzos para normalizar las sentencias 
del BASIC, ha habido una tendencia en los fabricantes de 
ordenadores a producir sus propias versiones con sentencias 
propias de sus máquinas. Como resultado tenemos algunas 
sentencias disponibles en otros ordenadores que no lo están 
en el Amstrad, aunque este pequeño inconveniente se puede 
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saivar usando una o varias sentencias del Amstrad. Del mismo 
modo, el Amstrad, tiene varias sentencias que no se 
encuentran en otros ordenadores. 


Aunque hemos incluido una lista de las sentencias de BASIC 
disponibles en el Amstrad, no está en el ánimo de este libro 
el enseñar los fundamentos de la programación BASIC, Ya que 
existen numerosos libros en este campo. Le recomiendo que 
use el resto de este capitulo como una simple lista de 
referencia. Echela una rápida ojeada en este momento y úsela 
posteriormente como referencia, si lo necesita. 


Para cada palabra clave que se menciona, la sintaxis 
requerida aparece en el siguiente formato: 


COMANDOS DE BASIC DEL AMSTRAD 
Palabras clave BAZIC, en mayúsculas. 
datos variables, entre "<>" 


datos opcionales, entre corchetes "[]" 
datos repetitivos van seguidos por ... 


COMANDOS DEL SISTEMA 


Comando Propósito Sintaxis 

AUTO benera niseros de linea AUTO [<linea>J[,<increm>] 
autondticamente 

CAT Lista ficheros en cinta CAT 


CLEAR Limpia las variables CLEAR 
DELETE Borra lineas de prograsa DELETEC<num>3[,JC(<num>] 


EDIT Entra en modo edicitn EDITínum lin> 

LIST Lista el programa LIST[<num lin>J(-T[<num lin> 
1(,Hifuente>] 

LOAD Carga programas LOAD <fichero>[,<direcc>] 


MEMORY Restaura los apuntadores MEMORY <dirección> 
del BASIC 


MERGE Mezcla un programa del MERGE <fichero> 
cassette con el de la 
senoria 


NEW Borra la memoria NEW 


RENUM Renunera el programa o  RENUM[<num nuevo>J(,[<num 


parte de él viejo>J[,tiincremento+]] 
RUN Ejecuta el programa RUN[<fichero> o <num lin>] 
SAVE Salva programas o memo- SAVE<fichero>[,<tipo>JCI, 
ria en el cassette <parámetros>J] 


TROFF Quita la facilidad trace TROFF 
TRON Pone la facilidad trace TRON 
SENTENCIAS DE ASIGNACION 


Sirven para asignar valores numéricos o secuencias de caractk- 
res a secciones especificas de la memoria del ordenador. 


Comando Propósito Sintdxis 


DATA Especifica una lista de DATA <dato>[,ídato>1.... 
valores para el READ. 


LET Asigna un valor o una [LETI<variable>=¿expresitn> 
secuencia de caracteres 
a «una variable, 


MID$ Reemplaza parte de una MID$(<cadena>, <íprinc> 
cadena. También se puede [,ílong>*1)=<cadena> 
usar como función. 


FOKE Asigna un valor a una POKE <dirección>, texpresitn> 
posición de menoria. 

READ Toma datos de una READ ¿variable>[,ivariable;>] 
sentencia DATA y los O 


asigna a las variables 


RESTORE — Posiciona el apuntador  RESTORE [<num linea>] 
del READ a la linea 
especificada. A la 
primera, si se omite. 


SENTENCIAS DE CONTROL 


Estas sentencias son de las más vitales del repertorio, y 
nos permiten controlar el orden en que se ejecutarán las 
instrucciones del programa. 


Conando 


AFTER 
CALL 
CHAIN 
CONT 


END 
ERROR 
EVERY 


FOR 


GOSUB 
GOTO 
IF... 
THEN... 
ELSE 
NEXT 


ON<GOSUE 
GOTO> 


ON BREAK 
GOTO 


ON BREAK 
STOP 


ON ERROR 
GOTO 


Propósito 


Invoca una subrutina en 
un intérvalo dado. 


Llama a una subrutina 
externa. 


Carga y ejecuta un 
prograña. 


Continúa desde la parada 
anterior. 


Fin del programa 
Toma una acción de error 


Invoca a una subrutina a 
intérvalos regulares 


Controla un bucle de una 
sección del programa por 


Sintaxis 


AFTER <entero>[,<enterol 
GOSUB<num lin> 


CALLídirecc>[,<paraml.... 
CHAINTMERGEI<fichero+[, ¿num 
lin>] 


CONT 


END 
ERROR<entero> 


EVERY<entero>[,<entero>] 
GOSUB<num lin; 


FOR<var>=<valor>TO<val or + 
STEP<incremento> 


el valor de una variable : 


que es incrementada 
Llama a una subrutina 
Salta a una linea dada 
Si la condición es 
cierta, ejecuta una 
acción o salta a una 
linea especifica. 

Fin del bucle FOR 

Pasa control a la línea 
o subrutina cuya posi- 
ción corresponda al en- 
tero de la expresión. 


Permite tomar la rutina 
de interrupción de BREAK 


Desactiva la rutina de 
interrupción de BREAK 


Pone una trampa de error 


GOSUE<num lin> 
GOTO<num lin> 


IF<xcond>THEN[<sentencia> O 
¿num lin>J[ELSE<sentencia>] 


NEXT[<variable>1] 


ON<expres+(GO0SUB o GOTO? 
¿num lin>[,t%num lin>+d.... 


ON BREAK GOTO <num lin> 


ON BREAK STOP 


ON ERROR GOTO ¿num lin> 


ON su Pernite le interrupción 
GOSUB de la cola de sonido 


RESUME Reanuda la ejecución 
después de una trampa 


RETURN Retorna de un G0SUB 
WEND Fin de un bucle WHILE 
WHILE Controla un bucle de 


programa mientras se 
cuaple una condicitn 


ON SO< canal >GOSUB<num lin> 


RESUMECINEXT o <num lin>3] 


RETURN 
WEND 
WHILE<condición> 


SENTENCIAS DE ENTRADA/SAL IDA 


Permiten que se introduzca o se obtenga información: 


Comando Propósito 

CLOSEIN Cierra fichero entrada 
CLOSEOUT Cierra fichero salida 
ENT Define envolvente tono 
ENV Define envolvente volun. 
INPUT Introduce datos 

LINE Introduce linea 

INPUT 

OPENIN — Abre fichero de entrada 
OPENOUT — Abre fichero de salida 


OUT Saca un valor por una 
puerta de E/S 


PRINT Saca datos 


RELEASE — Libera canal de sonido 


SOUND Pone un sonido en cola 


Sinthxis 

CLOSE IN 

CLOSEOUT 

ENT<num envolv>[,<param>l... 
ENV¿num envolv>[,:iparam>J... 


INPUT[é$<cauce>, 113 1L 
“<mensaje>"¡livar>[,ivar>ld.. 


LINE INPUT[+*, <cauce>, JE; 1L 
"<mensaje>";Jl<var cadena; 


OPENIN <fichero> 

OPENOUT <fichero> 
OUT<puerta>, <expresibn> 
PRINT[é$<cauce», J<dato>[ 
¿separador ><dato>l.... 
RELEASE<canales> 
SOUND<estado>,<periodo tono; 
[,<duración>[,tívol>[,<envol 


vol> [,<envol tono>[,<¿period 
o ruido*1331]31 


SPEED 
KEY 


SPEED 
WRITE 


WAIT 


WIDTH 
WRITE 


Velocidad repeticitn 
de teclas 


Velocidad escritura del 
cassette 


Espera en puerta E/S 


Ancho linea ¡apresora 


Saca datos 


SENTENCIAS DE GRAF1COS 


SPEED KEY<demora comienzo>,< 
demora repetición> 


SPEED WRITE<expresión> 
WAIT<puerta>,imascara>[,* 
inversión>] 

WIDTH <expresiótn> 


WRITE [é<cauce>, J<dato>[ 
<separador><dato>l.... 


Se usan para controlar las facilidades de pantalla dispo- 
nibles en el Amstrad. 


Comando 
BORDER 
CL6 
CLS 
DRAW 


DRAR 


INK 


LOCATE 
MODE 
MOVE 


MOVER 


Propbsito 

Cambia color del borde 
Limpia pantalla grafica 
Liapia ventana 

Dibuja una linea desde 
la posición actual de 
PLOT a una posición 
absoluta. 

Dibuja una linea desde 
la Ca actual de 
PLOT a una posición 
relativa. 


Pone color de tinta 


Posiciona el cursor 


Pone aodo de pantalla 


Sinthxis 
BORDER<colori>([,<color2>] 
CL6[<maáscara tinta?>] 
CLSCitcauce>] 


DRAW<x>,<y>[, imascara tinta> 
J 


DRAWR<desp x>,<desp yal, 
máscara tinta>] 


INk<tinta>,<colori>[,<color2 
>] 


LOCATE[é$<cauce», 12x>,%y> 
MODE<expresi ón > 


Mueve posición de PLOT a MOVEX<x>,<y> 


posición absoluta 


Mueve posición de PLOT a Pero eb x>,<desp y> 


posición relativa 
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ORIGIN Recoloca el origen de la ORIGIN<x>,<y>[,<izq>,<der >», < 


pantalla (0,0) 
PAPER Pone color de fondo 
PEN Pone color de tinta 


PLOT Dibuja un punto en una 
posición absoluta 


PLOTR Dibuja un punto en una 
posición relativa 


SPEED INKPone periodo parpadeo 


SYMBOL Define un carácter con 
una aatriz de *bits” 


TAG Peraite poner texto en 
la posición de PLOT 


TAGOFF Cancela el TAG 
WINDOW Cr.ea una ventana 


ZONE Pone zona ¡apresitn 
Y finalmente, 

OTRAS SENTENCIAS 

Conando Propósito 


DEF FN Define funciones de 
usuario 


DEFINT> Pone tipos por defecto 
DEFREAL> (entero,real o cadena) 
DEFSTR> 


DEG Pone aodo grados 

DI Anula interrupciones 
DIM Prepara matrices 

El Permite interrupciones 


arriba>,tabajo?>] 
PAPERL<cauce>, J<masc tinta> 
PENTé<cauce>, liímaásc tinta> 
PLOT<x>,<y>[, máscara tinta>] 
PLOTR<desp x>,<desp y>[,imas 
cara tinta?) 

SPEED INK<periodo>,<periodo> 


IESO car>[,ídatos fila 
a 


TAG[Hkcauce>] 


TAGOFF [é< cauces] 


WINDOW[é<cauce?, J<izq>,<der > 
,<arriba>,íabajo> 


ZONE<expresión entera> 


Sintaáxis 


DEF FN<nombre>(<parámetro>[, 
<parámetrol...)=<expresióbn> 


DEFINT<rango de letras; 
DEFREAL<rango de letras> 
DEFSTR<rango de letras> 

DEG 

DI 
DIM<variable>(<subind>[,<sub 
ind>1...)[,<variable>(¿ísubin 
d>[,<subind>1...J... 


El 
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ERASE Borra aatrices ERASE<variable>[,<variable>] 
KEY Pone teclas de función  KEYínum función>,<cadena> 


KEY DEF Redefine teclas KEY DEF<num tecla>,<rep>[,<n 
ormal >[,<mayus>[,íctrl1>11] 


RAD Pone aodo radianes RAD 
RANDOMI ZE Inicia núsero aleatorio RANDOMIZE[<expresi tn num>] 
REM Conentario REM<comentario> 
FUNCIONES DE BASIC DEL AMSTRAD 
Una función es una regla que relaciona un grupo de valores 
con otros. El valor del primer grupo es conocido por 
argumento y el del segundo es el resultado. 
FUNCIONES SIMPLES, NUMERICAS Y MATEMATICAS 
Son funciones especializadas que tienen numerosas aplica- 


ciones en matemáticas, ciencias e ingenieria. Se ha incluido 
también un generador de números aleatorios. 


Función. Propósito(resultado) Sinthxis 


ABS Valor absoluto ABS (<expresión num>) 
ATN Arco tangente ATN (<expresión num>) 
CINT Convierte a entero CINT (<expresión num>) 
cos coseno COS (<expresión num>) 
CREAL Convierte a real CREAL (<expresión num>) 
EXP Valor exponencial EXP (<expresión num>) 
FIX Trunca a entero FIX(<expresión num>) 
INT Redondea a entero INT (<expresión num>) 
LOG Valor logaritao natural LOG(<expresión num>) 


LOG10 Valor logaritao cosin LOG10(<expresión num>) 


MAX Deteraina valor sixiao MAX (<expresión num, 
<expresión num>J...) 
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MIN 


PI 
RND 
ROUND 


SGN 
SIN 
SQR 
TAN 
UNT 


Determina valor síniao 


Constante 3.141592653 
benera núsero aleatorio 


Redondea el valor a un 
ndaero de decimales dado 


Valor del signo 
Valor del seno 
Raiz cuadrada 
Tangente 


Convierte valor sin 
signo a entero 


FUNCIONES DE CADENA 


MIN(<expresión numa[, 
<expresión num>J]...) 


PI 
RND( (<expresión num>)] 


ROUND (<expresión num>, [ 
<posiciones>1]) 


SGN (<expresión num?>) 
SIN(<expresión num>) 
SOR (<expresión num>) 
TAN (<expresión num>) 
UNT (<dirección:>) 


Estas son las funciones para manipular caracteres y texto. 


Función 
ASC 
BINS$ 


CHR$ 


HEX$ 


INSTR 


LEFTS 


LEN 
LOWER$ 
MIDS$ 


Propósito(resultado) 
Codigo ASCII 


Convierte un nimero en 
una cadena binaria 


Carácter cuyo código 
ASCII es especificado 


Convierte un nimero en 
una cadena hexadecinal 


Busca una subcadena 
Saca la parte izquierda 
de una cadena 

Longitud de una cadena 
Convierte a ainisculas 


Saca una subcadena 


Sintkxis 
ASC (¿cadena?) 


BINS$ (<entero sin signo»[, 
<ancho del campo>]) 


CHR$ (<expresión num?) 
HEX$(<entero sin signo», 
<ancho del campo?>]) 


INSTR([<posición», J<cadena 
buscada>,ícadena>) 


LEFT$ (<cadena?>, ¿1ongi tud >) 


LEN (<cadena>) 
LOWER$ (<cadena>) 


MID$(<cadena>,<posicitn>, 
<longitud>) 


RIGHTS Saca la parte derecha de 
una cadena 

SPACES Cadena de espacios 

STR$ Convierte un nimero en 
una cadena de digitos 

STRINGS$ Cadena del caracter 
especificado 

UPPER$ Convierte a aaylsculas 

VAL Convierte una cadena de 


digitos en núneros 


FUNCIONES DE E/S 


RIGHT$ (<cadena>, <longi tud >) 


SPACES$ (<1longi tud>) 
STR*$ (<expresión num>) 


STRING$ (<1long>,<carácter >) 


UPPER$ (<cadena>) 
VAL (<cadena>) 


Estas se usan con las operaciones de E/S. 


Función Propósito(resultado) 
INKEY Estado de una tecla 
INKEYS$ Caracter de una tecla 
INP Entrada de una puerta 
JOY Estado de "joystick" 
POS Posición de un cauce 
REMAIN Resto que queda en el 
contador de demora 
sQ Estado de cola de sonido 
VPOS Posición cauce vertical 


FUNCIONES DE SISTEMA 


Sinthxis 
INKEY (<num tecla>) 


INKEY$ 

INP (<num puerta>) 

JOY (<num joystick>) 
POS (icauce>) 

REMAIN (¿num contador >) 


SQ (<canal >) 
VPOS (H<cauce>) 


Se usan para informarse del estado del sistema. 


Función Propósito(resultado) 
E0F Prueba fin de fichero 
ERR Número de error 

ERL Núsero de linea donde 


ocurrió el error 


Sintdxis 
EOF 
ERR 
ERL 
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FRE Menoria libre o libera  FRE(O) 
espacio sin usar FRE(" ") 


HIMEM Direccitn ads alta de HIMEM 
aenoria para BASIC 


PEEK Contenido de una direc- PEEK(<dirección>) 
ción de aenoria 


TEST Color de tinta en la TEST (<x>,<y>) 
posición especificada 


TESTR Color de tinta en la TESTR(<desp x>,ídesp y>) 
posición relativa desde 
la actual de PLOT 


TIME Tiempo(1/300 seg) desde TIME 
la puesta en marcha 


XPOS Coordenada horizontal de XPOS 
la posición de PLOT 


YPOS Coordenada vertical de  YPOS 
la posición de PLOT 


Para una descripción más detallada de las sentencias 
disponibles, refiérase al manual del usuario del Amstrad. 


A continuación vamos a dar un curso de programación para 
explorar algunas de las técnicas más avanzadas del Amstrad. 
Todas las facilidades que se traten irán ilustradas con 
varios programas de ejemplo que pueden ser usados y 
alterados para ajustarlos a sus propias necesidades, asl 
que siéntase libre para cambiar en ellos todo lo que quiera. 
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CAPITULO DOS 
MANIPULACION DE 
CADENAS Y CARACTERES 


Se conoce por "cadena" a una secuencia de caracteres alfa- 
numéricos o gráficos que no necesitan ser de naturaleza nu- 
mérica. El Amstrad tiene varias facilidades que permiten 
usar cadenas de caracteres, además de los números puros, 
para aumentar la versatilidad de sus programas. Enseguida 
veremos que las funciones de cademas del Amstrad son 
fundamentales para los programas que requieren manipulación 
de caracteres. 


EL JUEGO DE CARACTERES DEL AMSTRAD 


El Amstrad tiene un juego de 256 caracteres. Estos incluyen 
caracteres numéricos y alfabéticos, letras griegas, simbolos 
gráficos, signos de puntuación, símbolos matemáticos, carac- 
teres de control, etc. El juego de caracteres del Amstrad 
está basado en el ASCII (American Standard Code of Informa- 
tion Interchange), sin embargo, como la mayoría de los 
micros que se fabrican, tiene algunas alteraciones para 
cubrir sus, propias necesidades, de modo que no es del todo 
estándar. Cada carácter se distingue por su propio código 
que es un número entre O y 255. Los caracteres y sus códigos 
aparecen listados en el apéndice A, y se pueden convertir 
mediante las funciones ASC y CHR$. 


Por ejemplo: 

Estas dos expresiones 

ASC("A") y ASC("AMSTRAD") examinan el primer carácter y 
devuelven 65, el código ASCII de "A" 


De modo similar 
CHR$ (65) 
nos devuelve el carácter "A" 


Intente confirmar los códigos ASCII de otros caracteres en 
su Amstrad; por supuesto debe usar el comando PRINT para 
visualizar los resultados, ej. PRINT ASC("464") 


10 FOR j¡ = 0 TO 255 
20 PRINT CHR$(3); 
30 NEXT j 


Además de los caracteres esperadosícomo a,b,c... O 1,2,3) 
hay varios caracteres que representan funciones de control y 
causan algunas irregularidades en la pantalla. Estos son los 
caracteres ASCII estándar y están localizados en las 32 
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primeras posiciones. El siguiente programa reduce el ¡juego 
de caracteres visualizado a aquellos que son imprimibles. 


10 FOR ¿y = 32 TO 235 
20 FRINT CHR$(53);5 
ZO NEXT j 


OPERADORES DE CADENA 


Podemos comparar dos cadenas entre si usando el signo *=”, 
obteniendo un resultado "verdadero", si son iguales, €ej. 
todos los caracteres son iguales y los espacios están en la 
misma posición (incluidos los del final). El uso más obvio 
es su incorporación en una sentencia IF... THEN. 


ej. 
100 INFUT "CONTINUE"; q$ 
110 IF q$ = "NO" OR q$ = "no" THEN STOP 


Algunas veces los espacios del final de una cadena pueden 
confundirnos en estas comparaciones. Estos espacios pueden 
ser descubiertos con la función LEN que nos devuelve el 
número de caracteres de la cadena. 


FRINT LEN(a$) 


Las cadenas también se pueden comparar con operadores ES y 
"<" una cadena es menor que otra si la precede 
alfabéticamente, com en un directorio telefónico. Lo 
usaremos más adelante al escribir un programa de clasifi- 
cación alfabética. 


Finalmente, las cadenas pueden ser unidas(concatenadas) 
mediante el operador "+" 


ej. 
10 aé$ = "AMSTRAD " 
ZO po = "CFC 464" 
0 = af + b$ 


40 FRINT có$ 


Observe, sin embargo, que las cadenas mo pueden ser 
restadas, multiplicadas, divididas ni elevadas a una 
potencia. 


FUNCIONES DE MANIPULACION DE CADENAS 
El Amstrad tiene tres funciones. de cadena que son de un 


valor inapreciable para manejar texto y caracteres. Esta son 
LEFTS$, RIGHT$ y MID$ y se usan para extraer una subcadena de 
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otra cadena. LEFT$(a$,n) y RIGHT$(a$,n) extraen n caracteres 
de la izquierda y de la derecha de la cadena a$, respectiva- 
mente. 


ej. 

Si a$ = "ABCDEFGHIJ" 

entonces LEFT(a$,3) nos devolverá "ABC" 
y RIGHT (as$, 4) nos devolverá "GHIJ" 


MID$ es una sentencia mas potente, - se puede usar para 
obtener trozos de una cadena, a diferencia de LEFT$ y RIGHTS 
que están limitados al principio y al final de la cadena. 


MID(a$,n,m) extraerá m caracteres a partir del número n de 
la cadena. Si omitimos el argumento m, se obtienen todos los 
caracteres que síguen al n. 


La versión del Amstrad tiene una ventaja más que otras 
versiones del MID$, y es que se puede usar para asignar a 
una Cadena una sección de otra. El trozo que especifica MID$ 
será el destino de la cadena que se va a asignar. 


ej. MID$(a$,n,m) = b$ asignará los primeros m caracte- 
res de b$ a a$, empezando por el carácter número n. 


El programa 2 ilustra el uso del troceado de cadenas con la 
función MID$. Se introduce una sentencia en español y la 
muestra después con todas las palabras de cuatro letras 
emborronadas. 


Se introduce la cadena a$ de forma que los caracteres pri- 
mero y último sean blancos. Prepara un apuntador x para 
moverse a lo largo de cada carácter. Primero mira si el 
carácter x es un espacio, después mira si los cuatro 
caracteres siguientes mo son espacios y, finalmente, que el 
siguiente es un espacio. Si se cumplen todas estas 
condiciones quiere decir que la palabra tiene cuatro letras 
y las reemplaza por cuatro estrellas. Si no se cumplen todas 
estas condiciones, xx es incrementado en 1 y pasa al 
siguiente grupo de caracteres. 


ejemplo 
ESTE_ES_PEFE_EL_CARNICERO_ 
H 1 
Xx no xt5 
blanco blanco blanco 
PROGRAMA 2: MARIA CASABLANCA 


10 CLS 
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20 PRINT "EL CENSOR DE SILICONA ATACA DE NUEVO" 


30 FRINT : FRINT "Introduzca una frase" 
40 FRINT : INFUT a$ 2: a$ = " "+ag$+" " 
50 FOR X = 1 TO LEN(a$)-5 

60 IF MID$(a$,.x,1)<23" " THEN 120 

70 FOR y = 1 TO 4 

80 IF MID$(a$,x+y,1) = " " THEN 120 

90 NEXT y 

100 IF MID$(a$,x+5,1):<2>" " THEN 120 

110 MID$(a$,x+1,4) = "*xXXxX" 

120 NEXT x 


130 FRINT : FRINT as 
140 FRINT : INFUT "Otra vez?":3q% 


150 1F LEFTS$(q$,1) = "S" OR LEFTS(q$,1) = "s" 
THEN _ 10 
160 END 


MAS FUNCIONES DE CADENA 


En algunas aplicaciones es recomendable almacenar números 
en forma de cadenas de digitos. Por ejemplo, puede querer 
colocar el punto decimal a un número; esto es mucho más 
fácil si convierte el número en una cadena y examina después 
cada carácter. También es recomendable practicar con la in- 
troducción de cadenas y convertirlas en valores numéricos. 
Esto evita el problema de que falle un programa que pide un 
valor numérico, si le introducimos inmadvertidamente otro 
tipo de carácter. En el capitulo 3 veremos la forma de 
evitar estos problemas, cuando estudiemos la validación de 
los datos de entrada.Los números se convierten a cadenas y 
viceversa con STR$ y VAL. 


STR$ aplicado a un valor numérico lo convierte en una cadena 
de caracteres, en la forma en que se imprime normalmente. 


STR$ (-12.01) nos dará "-12,01" 
STR$ (1000000000) nos dara "1E+09" 


De forma similar, VAL aplicado a una cadena, devuelve el 
valor numérico de los digitos de la cadena. 


INFUT vé : y = VAL (v$) 


Si se introducen caracteres extra, éstos son ignorados y 
devuelve el número. Si el primer carácter no es reconocido 
como un número, devuelve el valor O. 


También se necesita algunas veces convertir cadenas de 
mayúsculas a minúsculas y viceversa; esto se puede hacer con 
las funciones UPPER$ y LOWER$. Cuando se usan, cualquier 


carácter no alfabético permanece sin cambios. 


UFFERS("amstrad") nos devolverá "AMSTRAD" 
LOWERS ("ORDENADOR") nos devolverá "ordenador" 


Finalmente, otras dos funciones: SPACE$ y STRING$ que nos 
devuelven una cadena de espacios o caracteres de la longitud 
requerida. 


SFACES$ (5) nos devolverá % espacios 
STRING$ (10,"X*X") mos devolvera "*XXXXXXXXXX" 


BUSQUEDA DE PALABRAS 


La función INSTR nos permite buscar una palabra especifica 
dentro de una frase; el programa 3 ilustra esta función. Nos 
permite introducir una palabra y una frase para buscar la 
primera dentro de la segunda; la sentencia es mostrada 
posteriormente con todas las ocurrencias de la palabra 
resaltadas. 


PROGRAMA 3: BUSQUEDA DE PALABRAS 


10 CLS : FEN 1 
20 FRINT "BUSQUEDA DE FALABRAS" 


ZO PRINT : ERINT "Introduzca una palabra" 
40 INFUT ps$ 

50 PRINT : PFRINT "Introduzca una frase" 
60 INFUT 4% 

70 CLS 

80 k=1 : v=1 

90 WHILE vic0 


100 y = INSTR(k,f$,p%) 

110 FOR ¡=k TO LEN(+4$) 

120 IF v=0 OR ¿iv THEN FEN 1 ELSE FEN 2 
130 FRINT MID$(f$%, 35,1); 


140 IF vís0 AND ¿¡ov+LEN(p$)-2 THEN 
k=v+LEN(p$): GOTO 160 

150 NEXT j 

160 WEND 


170 PRINT : FRINT : INFUT "Fulse ENTER para 
continuar":;gs% 

180 IF q$ = "" THEN 10 

190 END 


En este programa se usan PEN 1 y FEN 2 para alterar el 
color con que se imprime el texro - veremos ésto con más 
detalle cuando estudiemos el color en el capitulo 3. 


El siguiente ejemplo nos muestra la técnica de búsqueda 
aplicada a tantas series de datos como se requiera, cada una 


de ellas está contenida en una sentencia DATA. El orograma 4 
nos devuelve también una palabra que está relaccionada a la 
clave. 


El programa ha sido diseñado para una firma hipotética que 
tiene gran cantidad de empleados, cada uno con un nivel de 
destreza y experiencia en diferentes lenguajes de máquina. 
El jefe de personal necesita una forma de registrar los 
conocimientos de cada empleado y un método de obtener los 
nombres de aquellos que están familiarizados con unos 
conocimientos especificos. Asi que se necesita un 
clasificador de la base de datos. 


Los nombres de los empleados se almacenan en sentencias 
DATA seguidas por sus conocimientos. Fara distinguir entre 
el nombre y. los conocimientos, el primero va precedido por 
el signo "*". El programa hace una búsqueda por cada grupo 
de datos; si encuentra una palabra precedida por el  "é", 
entonces almacena temporalmente el nombre del empleado 
mientras examina sus conocimientos. Si encuentra los 
conocimientos requeridos, el nombre del empleado aparece en 
la pantalla. El programa continúa su búsqueda hasta que 
localiza el simbolo de terminación "Z". 


Esta es, sin duda, una de las formas más simples que exis- 
ten de programas de bases de datos, pero puede ser bastante 
atil y está limitado solamente por el tamaño de la memoria 
del ordenador. Tiene la ventaja de que el jefe de personal 
puede añadir registros fácilmente a medida que se expanden 
los conocimientos de sus empleados, añadiendo las sentencias 
DATA apropiadas. Usted puede cambiar las sentencias DATA por 
otras que le sean más (útiles, por ejemplo, registros de 
libros. 


PROGRAMA 4: BASE DE DATOS 


10 CLS 

20 PRINT : PRINT "SOFTWARE CORTES Y CIA" 

ZO RESTORE : n%$ = "" 

40 FRINT : PRINT "Introduzca dato requerido" 
S0 INFUT s$ : s$ = UPFER(s$) 


60 PRINT 

70 READ ws$ 

80 IF w$ = "2%" THEN 120 

90 IF LEFTS$(w$,1) = "$" THEN n$ = MID$(w*$,2) 


100 IF w$ = s$ THEN FPRINT n$,s$ 
110 GOTO 70 
120 PRINT : INPUT "Fulse ENTER para continuar" 


130 IF q$ = "" THEN 10 
140 END 
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1000 * DATOS 

1010 DATA R*GARRIDO A, ADA, FORTRAN, VAX 

1020 DATA *+ANTON F, BASIC, COBOL, DEC, TAL 
1030 DATA *DEL CAMPO A, CORAL 66, COBOL, ARGUS, 
TANDEM 

1040 DATA R*MARTINEZ L, BASIC, COBOL, FDF, ARMY 
SYSTEMS 

1050 DATA *+CUADRADO M, ALGOL, COBOL, BURROUGHS 
1060 DATA HESTEBAN J, CAD/CAM, UNIX, FPROLOG, 
MICROCOBOL 

1070 DATA *+JIMENEZ A, FASCAL, FOLICE SYSTEMS 
1080 DATA H+LOFEZ J, BASIC, Z80, 8088, CF/M, 
MICROS 

1090 DATA % 


El último ejemplo de este capitulo muestra cómo manipular 
textos. Se elije aleatoriamente una palabra de la lista 
contenida en las sentencias DATA y se mezclan las letras 
para producir un anagrama. Después se muestra este anagrama 
al jugador para que adivine la palabra original. La lista de 
palabras puede ser expandida según se quiera añadiendo 
sentencias DATA. 


PROGRAMA 51 MANARAGA! 
10 CLS 


20 FRINT "ANAGRAMA" 
3O FRINT : FRINT "Encuentre la palabra oculta" 


40 a$ = "" 1 g$ = "" : RESTORE 
50 n=80: "numero de palabras 
60 FOR jj = 1 TO RNDXn+1 

70 READ w$ 

80 NEXT j 

200 x= LÉN (ws) : Ww$ = w$ 


100 FOR j = 1 TO x 

110 n = INT(1+RNDXx) 

120 x$ = MID$(w$,n,1) : IF x$ = "Xx" THEN 110 
130 MID$(w$,n,1) = "Xx" 

140 a$é = af + x$ 

150 NEXT j 

160 IF a$ = ww*+ THEN 60 

170 PRINT : PRINT,as$ 

180 FPRINT : INFUT "Introduzca su respuesta";g*% 
¿ q$ = UPFER (g%) 

190 IF g$ = "" THEN 180 

200 IF LEFT (9$. 1) = "2" THEN FRINT : FRINT 
"Respuesta",ww$ : GOTO 230 

210 IF g$<ww$ THEN FRINT "pruebe otra vez" : 
GOTO 180 

220 FPRINT : PRINT "MUY BIEN" 
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230 FRINT : INFUT "Fulse ENTER para continuar" 


5 q 

240 IF q$ = "" THEN 10 
250 END 

1000 * LISTA DE FALABRAS 


1010 DATA HIDROGENO, MONOFOLIO, BUCLES, CHIMENEA, 
FAQUETE, CORAL, CRONICO, DIETA, ELIFSE 

1020 DATA FASCISMO, DINERO, GRUESO, MALARIA, 
RACIONAL, RADIO, ESCUDO, LLORAR, CHAQUETA, 
LIBELULA, PRUEBA 

1030 DATA EGOISTA, SANTO, BAUTIZO, EEN NEON, 
ESTERA, TRIFPODE, ESPERA, CIEGO, NUCLE 

1040 DATA VERA, SOPLO, MEMORIA, SERVICIO, OMEGA, 
SOCIABLE, NEGLIGENTE, AFICION, RAQUETA, HOLA 
1050 DATA RASCAR, GARANTIA, COLUMNA, CABALLERO, 
GRUESO, RECIBIR, TRACTOR, AGUA, NADAR, ZAFATO 
1060 DATA REJILLA, ACIDO, FOTENCIA, ARROJAR, 
INTERNO, JOYA, GRUTA, CARNAVAL, GIGANTE, BIKINI 
1070 DATA JUNGLA, ZORRO, CAQUI, ACUATICO, JUEILO, 
ENIGMA, LLAVE, FOLTRONA, ORACULO, FORTERO 

1080 DATA ORTODOXO, INTERINO, ESCOCER, LACRE, 
ACERO, FLEXIBLE, HORRIBLE, ORDENAR, JÓTA, FLÚIDO 
1090 2..... etc 


Si se encuentra perdido al ejecutar el programa, introduzca 
"2% y el ordenador le dará la respuesta. Debo mencionar algo 
acerca de RND, es un generador de números aleatorios que 
devuelve un valor entre 0 y 1. En el capitulo 4 veremos los 
parámetros que se le pueden pasar al RND y cómo genera los 
números. 


CAPITULO TRES 
TECNICAS SIMPLES 
DE EY/YS 


Frobablemente no le sorprenderá al lector saber que un 
ordenador, incluido el Amstrad, no sirve para nada a menos 
gue reciba información que él pueda entender. La 
transferencia de esa información se hace mediante los 
dispositivos de entrada, como vimos en el capitulo uno. 
Tampoco sería muy útil la máquina si no pudieramos acceder a 
los resultados una vez procesados por el ordenador; esta 
información puede ser transferida a través de los 
dispositivos de salida, mencionados también en el primer 
capitulo. Los dispositivos que sirven para entrada y salida 
se llaman dispositivos de Entrada/Salida (E/S). En este 
capitulo hablaremos de las técnicas de E/S del Amstrad y 
veremos los métodos para mejorar la relacción entre el 
hombre y la máquina, llamados algunas veces "el interfase". 


Es frecuente el caso del programador que ¡invierte gran 
parte de sus esfuerzos en mejorar la eficiencia de un 
programa, cuando seria más beneficioso que lo invirtiera en 
facilitar la entrada de datos al usuario, eliminando las 
posibilidades de introducir datos inválidos, manteniendo al 
usuario lo más ajeno posible al estado interno del programa 
y consiguiendo que la presentación de los datos sea mejor. 
La información puede ser dirigida al usuario por tres 
métodos distintos; Formas, Colores y Sonidos, Cada uno de 
ellos es importante a su manera. 


Las Formas pueden presentarse como simbolos o dibujos, que 
se pueden reconocer inmediatamente, O texto, que aunque 
tenga que ser descifrado no presenta mayores problemas. 
Aunque el texto es menos directo que los simbolos, puede 
decir muchas más cosas de una forma eficiente. La animación, 
en la que la pantalla es modificada rápidamente para 
producir una imágen, es una extensión de las figuras. Este 
tipo de imágenes son captadas rápidamente por el usuario; 
por ejemplo, un mensaje de error parpadeante es más efectivo 
que uno estático. Las imágenes dinámicas proporcionan 
movimientos muy reales, como en los juegos de tipo "arcade". 


El color es menos potente que las formas, pero se puede 
usar para ayudar a la identificación de las formas dificiles 
de distinguir. For ejemplo, una imágen con la parte superior 
azul y la inferior verde nos aparece como cielo e hierba 
mucho mejor que una imágen monocromática. El color se puede 
usar también para resaltar ciertas áreas de la pantalla; por 
ejemplo, un mensaje de error mostrado en color rojo vivo 
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llama antes la atención del usuario. Finalmente, una imagen 
en color es más agradable de mirar si se escojen cuidadosa- 
mente ls colores, que una de dos tonos. 


Mientras que con imágenes y colores el usuario debe estar 
más atento a la pantalla para recibir la información, con el 
sonido puede llegarle aunque no esté prestando atención. El 
sonido puede ser útil para atraer la atención del usuario 
si, por ejemplo, se completa una operación con errores. 
Estas notas deben ser altas y agradables para las operacio- 
nes correctas y bajas para los errores. El sonido puede 
añadir realidad adicional a las imágenes. En un juego del 
tipo de invasores del espacio, los sonidos de explosiones y 
rayos dan realismo y señalan al jugador el resultado de su 
operación. 


Una de las principales causas de ¡insatisfacción son las 
largas esperas que ocurren en un programa con cálculos 
numéricos largos y detallados. Para que un programa sea más 
eficiente, los largos periodos de inactividad de la pantalla 
sin mostrar señales de vida, deben ser reducidas mediante el 
uso de mensajes como "Programa iniciado","Sección uno 
completada" etc. Esto no solo tranquiliza al usuario, sino 
que le mantiene informado de la posición del programa. Al 
final de un proceso largo, es recomendable atraer la 
atención del usuario con un sonido del tipo "beep". 


El usuario puede ¡introducir datos dentro del ordenador 
mediante el teclado o el controlador de juegos. El teclado 
es, con mucho, el sistema más flexible y potente para 
introducir texto, valores numéricos o respuestas simples. El 
Amstrad tiene 75 teclas, pero cada una tiene significados 
alternativos cuando se pulsa simultáneamente con las teclas 
TSHIFT1 o [CONTROLI. Desgraciadamente es muy común en el 
programador que usa el teclado, olvidar que los usuarios de 
sus programas pueden no considerarlo tan sencillo. En este 
capitulo veremos como preparar la introducción de datos 
mediante:el teclado tan simple como sea posible. Cuando un 
usuario tiene que introducir datos, se le deben dar mensajes 
rápidos y, cualquier dato inválido, debe ser rechazado con 
un mensaje de error explicando el problema y dando la 
oportunidad de volver a introducir los datos. Ya que las 
teclas tienen etiquetas predefinidas, intente usar” estas 
etiquetas siempre que le sea posible. Por ejemplo, La mejor 
forma de terminar un programa puede ser [CONTROL SJ (Salir) 
o [CONTROL FJI (Final) mientras que el uso de algo como 
TCONTROL 4] puede no ser significativo. 


Como alternativa al teclado se puede usar un controlador de 


juegos, como un "joystick" o un botón, aunque tiene grandes 
limitaciones, puede ser preferible para 'algunas aplicacio- 
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nes. Un "joystick" tiene un juego de cinco pulsadores, cada 
uno se llama cuando el mango hace un movimiento determinado. 
El botón es similar al mando de voltmen de una radio e 
introduce dentro del ordenador un valor simple dentro de un 
rango limitado. Sin embargo, la ventaja real de los 
controladores de juego es que el interfaz con la máquina 
pasa a segundo término; unos pocos minutos moviendo el 
"joystick" a derecha e izquierda para mover algo en la 
pantalla en distintas direcciones y podremos comenzar a 
hacerlo sin tener que pensar demasiado. 


Vamos a proceder a estudiar algunas técnicas de E/S pero 
recuerde los puntos que hemos cubierto en esta introducción: 


l)entrada fácil y validada, 
2)mantener al usuario totalmente atento, y 
3)presentación de los resultados 


ENTRADA EN PANTALLA 


El método más comúnmente usado para introducir datos es con 
la sentencia INPUT, que ya hemos usado varias veces. Hay un 
par de puntos que debemos resaltar. Es posible introducir 
varias variables con una sola sentencia INFUT; simplemente 
deben ponerse seguidas por comas, y cuando se están 
ejecutando, se deben introducir los datos separados también 
por comas. Si el número de datos introducidos no coincide 
con los requeridos, se hace una petición para que se vuelvan 
a introducir los datos. Si está introduciendo una cadena que 
requiere una coma, será interpretada como un separador de 
entrada entre datos distintos. Esto puede evitarse introdu- 
ciendo la cadena flanqueada por comillas. 


Como ya hemos visto, es posible incluir un mensaje dentro 
de la sentencia INPUT, que aparecerá antes de la petición de 
datos. Si separamos el mensaje de las variables mediante un 
punto y coma, aparecerá una interrogación, mientras que si 
los separamos con dos puntos, evitamos que aparezca. Si 
ponemos punto y coma entre la sentencia INPUT y el mensaje, 
suprimimos el carácter de salto de linea al final de la 
entrada de datos de forma que la impresión continuará al 
final del último dato introducido. 


Se puede leer una línea entera, sin tener en cuenta la 
coma, mediante el comando LINE INFUT con una sola variable 
de cadena. 

100 LINE INFUT "mensaje";a$ 

Más adelante veremos el uso de estas dos sentencias con 
otros dispositivos, mediante el uso de un número de cauce. 
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INPUT SIN PARADA 


Una excelente facilidad del Amstrad es la posibilidad de 
detectar qué tecla ha sido pulsada durante la ejecución del 
programa. La función INKEY% se usa sin argumentos. Si pasa 
el control por INKEY$ cuando se está ejecutando el programa, 
INKEY$ devuelve el carácter leido del teclado; se puede 
pulsar [SHIFTI o [CTRL] junto con cualquier otra tecla. Si 
no se pulsa ninguna tecla, nos devuelve una cadena vacia; de 
este modo podemos crear una parada temporal hasta que se 
haya pulsado una tecla. 


100 FRINT "Fulse una tecla para continuar" 
110 IF INKEYs$ = "" THEN 110 
120 *continuación del programa 


La introducción de información mediante la función  INKEY$ 
tiene la ventaja sobre la INPUT que no tiene que ser seguida 
por [ENTER1, pero recuerde que, a diferencia de INPUT, no 
esperará a que pulse una tecla. Para introducir información 
usando INKEY$, se prepara un bucle de forma que si no se 
pulsa una tecla, reconoce la cadena vacila y mo sigue 
adelante. Una cosa importante a tener en cuenta es que 
INKEY$ puede cambiar entre lineas, por lo que es recomenda- 
ble que tan pronto como se lea el INKEY$, se asigne a una 
variable y, en adelante, se use la variable en su lugar. 


100 q$ = INKEYS 
110 IF q$ = "" THEN 100 
120 *continuación del programa 


El siguiente ejemplo usa la concatenación con la función 
INKEY$ para forzar al usuario a introducir una cadena de 
datos en formato correcto y es una buena alternativa a la 
sentencia INFUT. La cadena completa puede ser comprobada 
para ver su validez. 


100 d$ = "" 

110 PRINT "Enter : DD/MM/AA "; 

120 FOR j= 1 TO 8 

130 IF ¡= 3 0R ¿5 = 6 THEN c$ ="/" : GOTO 140 
140 cé = INKEYS : IF c$ = "" THEN 140 

160 PRINT c$; 

170 d$ = d$ + c$ 

180 NEXT j 

190 PRINT 

200 “validación y continuación 


INKEY es una pequeña extensión de INKEY$, y analiza el 


teclado y devuelve un valor que indica el estado de una 
tecla especifica, analizando si está pulsada y si lo esta, 
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comprueba si está pulsada también la tecla [SHIFT] oO la 
CCTRLI. Los valores devueltos aparecen listados en la figura 
3.1. El argumento de INKEY es un número entero que 
identifica a una sola tecla; en el apéndice B se proporciona 
una lista completa de los códigos. 


Esta función es atil para detectar respuestas con S/N (si 
o no) cuando el estado de la tecla SHIFT no es importante. 
En la figura 3.1 se puede ver que el valor retornado no es 
-1 si la tecla está pulsada. 


100 PRINT "Quieres continuar (S/N)2" 
110 IF INKEY (60)<3-1 THEN GOTO 140 
120 IF INKEY (46):<:-1 THEN STOF 

130 GOTO 110 

140 *continuación 


TECLAS VALOR RETORNADO 
TECLA EHIFT ETRL 
ARRIBA ? ES -1 
ABAJO ARRIBA ARRIBA 0 
ABAJO ABAJO ARRIBA 32 
ABAJO ARRIBA ABAJO 128 
ABAJO ABAJO ABAJO 160 


Figura 3.1 VALORES DE INKEY 
REDEFINICION DE TECLAS 


Algunas veces es necesario introducir frecuentemente una 
cadena completa. En el Amstrad tenemos la posibilidad de 
programar las teclas de modo que cuando presionamos una, nos 
devuelva una secuencia de caracteres; este tipo de teclas se 
llaman teclas de función. Hay 32 teclas, los valores ASCII 
128 a 159, que pueden ser expandidos a un máximo de 32 
caracteres, sin embargo, el número total de caracteres 
expandidos no puede pasar de 120. 


Supongamos, por ejemplo, que queremos programar una tecla 
de forma que cuando la pulsemos nos devuelva 


RUN "CUENTAS" seguido del carácter [*ENTER” ], 
Primero debemos decidir la tecla que queremos usar. For el 
momento estamos restringidos a las teclas que tienen valor 


ASCII entre 128 y 159%. Y como las teclas del teclado 
numérico nos devuelven valores entre 128 y 140, y [CTRL] 
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pulsado simultaneamente con [ENTER] en el teclado numérico 
nos devuelve 140; podemos programar esta tecla con el 
comando que damos a continuación 


EEY 140, "RUN" + CHR$(34) + "CUENTAS" + CHR$ (34) 
+ CHR$ (173) 


Inténtelo ahora. 


Usando KEY DEF podemos modificar los valores ASCII que 
devuelven ciertas teclas; el uso más común es modificar 
aquellas teclas que devuelven valores ASCII en un rango que 
permita programarlas como teclas de función. Otro uso puede 
ser el inutilizar el (ESCl(tecla Break). Debe codificar los 
siguientes parámetros en el orden dado: 


número de tecla vea el apéndice B 

repetición s1 permite repetición, O la impide 

nornal ¿Carácter ASCII cuando se pulsa sola 

con shift ¿Carácter ASCII cuando se pulsa con 
ESHIFTI (mo con [CTRLI) 

control ¿Carácter ASCII si se pulsa con [CTRL] 


Cuando no se especifica un nuevo valor, permanece el valor 
anterior. Por ejemplo, para programar la tecla [CTRL El para 
que devuelva EDIT: 


FEY DEF 358, O, 101, 69%, 128 
KEY 128 , "EDIT" 


Acabamos de mencionar la posibilidad de poner o quitar la 
repetición, hay que decir que el periodo de repetición puede 
ser alterado usando SFEED KEY para especificar la demora de 
arranque, el periodo de repetición se da en unidades de 0.02 
segundos. 


SPEED KEY 10, 10 


VALIDEZ DE DATOS 


Un método para prevenir que fallen los programas es 
comprobar los datos que se están introduciendo. Si los datos 
no son correctos, el control debe volver hacia atrás a la 
misma sentencia INPUT. El programa solo deberá continuar si 
los datos son introducido de forma correcta. Es de gran 
ayuda sacar un mensaje que indique al usuario el problema 
que se ha encontrado en los datos introducidos. 


30 


INFUT datos AA Proa | 
IF datos incorrectos THEN GOTO 


continuación del programa 


A diferencia de otros micros, el Amstrad comprueba si los 
datos introducidos son del tipo correcto, de acuerdo a las 
variables especificadas en la sentencia INFUT y, en vez de 
tallar, pide que se le introduzcan los datos de nuevo. 


Ya hemos visto, al estudiar el INKEY$, que podemos tforzar 
al usuario a introducir los datos en el formato correcto 
pero ésto no nos garantiza que los valores introducidos sean 
válidos, ej. un mes 13. Sin embargo no es muy dificil 
comprobar si el mes está en el rango de 1 a 12 y referirse 
después a una lista de los dias de cada mes para ver si la 
fecha es válida - por supuesto, debe tener en cuenta los 
años bisiestos. Los valores numéricos se extraen de la 
cadena de la fecha usando las funciones VAL y MID$ que vimos 
en el capitulo 2. 


Otros métpdos de comprobar la validez de los datos son, 
inspeccionar la longitud de las cadenas usando LEN, 
comprobar si los valores están dentro de rango con los 
operadores *>* y *í*, y comprobar si están presentes ciertos 
caracteres inspeccionando los códigos ASCI. 


Otro problema que puede ocurrir es que el usuario 
introduzca valores válidos pero incorrectos. Si ésto crea 
resultados dificiles de rectificar, es interesante 


mostrarlos de nuevo y pedir al usuario que los confirme 
pulsando S o N antes de que se tomen otras acciones. 


La falta de cuidado en comprobar los datos de entrada puede 
llevar a pérdidas de tiempo innecesarias y causar 
frustración al usuario, por lo que debe intentar hacer 
siempre sus programas lo más robustos posibles. 


SALIDA A PANTALLA 


Ya se habrá dado cuenta que para sacar datos a pantalla se 
usa el comando PRINT, más adelante veremos cómo especifican- 
do un número de cauce, se pueden sacar datos a otros 
dispositivos. La sentencia va seguida por los datos, que 
pueden ser variables, expresiones aritméticas, Cadenas, 
funciones de control, caracteres de control y máscaras de 
formatg. Es posible incluir varios grupos de datos en una 
sola-sentencia FRINT mediante el uso de la coma o el punto y 
coma. 


Punto y coba; 
Un punto y coma separando datos de impresión causa que el 
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segunao dato aparezca inmediatamente detras del primero. 


Coma, 

La pantalla de televisión puede considerarse como dividida 
en una secuencia de zonas de impresión de 13 caracteres cada 
una. Una coma separando dos datos a imprimir causa que el 
segundo dato aparezca en la primera posición de la siguiente 
zona. 


1234567891011 12 131415 16 17 18 19 20 21 22 23 24 25 2627 28 29 30 31 32 33 44 35 3637 38 39 


e Zone 1 —_—_——__ 9 9 _—__— Zone 9 e Zone 3 —_—_—> 


Figura 3.2 


Es posible alterar la zona de 13 para acoplarla a sus 
propias necesidades mediante el comando ZONE 


ZONE 10 


PRINT USING 


El Amstrad posee el comando PRINT USING, que permite 
imprimir los resultados en el formato requerido. El USING 
incluye una especie de plantilla formada por los caracteres 
"E +. XS5TP, !' M2", Cada carácter de la plantilla es 
inspeccionado uno por uno y controlando la imágen a 
imprimir. También se pueden imprimir caracteres de control 
que no estén incluidos entre los anteriores u otros 
caracteres de control fuera del contexto o precedidos por el 
carácter "_". En la figura 3.3 de la siguiente página damos 
una lista completa de las definiciones - los valores 
exponenciales se explican en el capitulo 4. 


El rebasamiento de un campo se indica por el simbolo Ala 
FRINT USING "HH*+"za 

FRINT USING "COSTO++$H*,+H.HH"ic 

FRINT USING "*M X"zas$ 


Fig 3.3:Formato PRINT USING 


ESPECIFICAROR NUMERO — NUMERO DEFINICION 
DIGITOS DE 
POSIBLES CARACT. 


NUMERICO + 1 1 Fosición: del digito 
(máx. 20. 0 1 Funto decimal 
caracte- , 1 1 Fosición del digito, pone 
res ex- una coma cada 3 digitos a 
cluidos la izquierda del punto. 
signos y +$+ 1 2 Signo dólar flotante, pre 
digitos cede los digitos no ocupa 
exponen- dos 
ciales) XxX 2 2 Rellena con asteriscos 
x1$ 2 $ Dólar flotante y asteris- 
cos 
+ O 1 Pone *+* o *-*, Puede apa 


recer al principio o al 
final de la plantilla 

= 0 1 Fone *-" si es negativo, 
solo puede aparecer al: 
principio de la plantilla 


mer 0) 4 Formato exponencial 

CADENAS '! Solo primer carácter 
Win espacios Frimeros n caracteres 
E Cadena completa 


Figura 3.3 especificadores de formato de FRINT USING 
CARACTERES DE CONTROL 


En modo comando es posible mover el cursor sobre la pantala 
usando las teclas de control del cursor. El BASIC del 
Amstrad le permite controlar este tipo de funciones dentro 
de las sentencias FRINT, permitiendo controlar el cursor en 
modo programa. Cuando se programa dentro de una cadena, cada 
carácter de control se representa por un simbolo gráfico que 
aparece en el listado del programa - otra alternativa es 
acceder al carácter por medio de la función CHR$*., 


+ Mueve el cursor un espacio a la izquierda CHR$(8) [CTRL H] 
> Mueve el cursor un espacio a la derecha CHR$(9) [CTRL 1] 


y Mueve el cursor un espacio hacia abajo CHR$(10) [CTRL J] 
% Mueve el cursor un espacio hacia arriba CHR$(11) [CTRL KJ] 


El siguiente ejemplo produce cinco *V” en formación 


10 CLS 
20 FRINT "IV VU» UU IV IS" 
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Si experimenta descubrirá que hay otras teclas que pueden 
ser programadas en sentencias PRINT. Tres muy útiles son: 


CHR$ (7) CCONTROL G] - sonido del *beep” 

CHR$ (24) ECONTROL X1]1 - intercambia tinta de PEN y PAPER 

CHR$ (30) [CONTROL P1 - reposiciona el cursor en la 
esquina superior izquierda de la 
pantalla 


En algunos casos puede ser necesario imprimir un simbolo 
asociado con uno de estos caracteres de control en lugar de 
usarlo en su acción de control. Esto se puede hacer 
imprimiendo primero CHR$ (1) 


FRINT CHR$(1)+CHR+ (8) 
EFECTOS DE ANIMACION 


Con la ayuda de los caracteres de control y usando los 
bucles FOR...NEXT podemos mostrar una secuencia de caracte- 
res que produzcan una animación simple. La idea es construir 
una Cadena que incluya los caracteres que se van a mostrar 
junto con algunos caracteres de control del cursor para 
mover los caracteres desde sus posiciones originales y 
algunos blancos para borrar los anteriores. Controlando la 
ejecución del programa con un bucle FOR...NEXT, podemos 
imprimir la cadema varias veces en sucesión para producir 
algunos efectos interesantes. 


10 "movimiento horizontal 

20 CLS 

ZO PRINT : FRINT : FRINT 

40 FOR y = 1 TO 35 

50 PRINT CHR$(32) + CHR$(62) + CHR$(8):5 
60 FOR k = 1 TO 20 : NEXT k 

70 NEXT 

80 FOR j¡ = 1 TO 35 

90 PRINT CHR$(32) + CHR$(8) + CHR$(8) + CHR$(60) 
+ CHR$ (8); 

100 FOR <K = 1 TO 20 : NEXT k 

110 NEXT j 

120 GOTO 40 


Podemos usar una técnica similar para conseguir un 
movimiento vertical. El siguiente ejemplo combina ambos 
movimientos para producir un movimiento diagonal. 


10 “movimiento diagonal 
20 CLS 
3O FOR y = 1 TO 22 


40 PRINT CHR$(32) + CHR$(10) + CHR$(214) + 

CHR$ (11) + CHR$(11) + CHR$(232) + CHR$(10): 

SO PRINT CHR$(214) + CHR$(8) + CHR$(8) + CHR$ (8) 
+ CHR$(10); 

60 NEXT j 

70 GOTO 20 


CONTROL DE IMPRESION 


El modo estándar de imprimir información en una pantalla es 
a lo largo de una línea o hacia abajo en una columma. Esto 
puede ser aceptable para pequeñas cantidades de datos, pero 
cuando la impresión pasa de la fila 25, la pantalla se mueve 
hacia arriba. Desgraciadamente ésto significa que la linea 
superior se desvanece y no da tiempo a leer los resultados. 


Una forma de evitar esto es contar las lineas que se 
escriben y parar la salida cuando se llene la pantalla. Se 
puede continuar, pulsando cualquier tecla. Además los 
títulos deben aparecer en lo alto de cada página. 


Un segundo problema que suele ocurrir es que una variable 
numérica aumenta (comparada con el valor anterior) y cambia 
el número de digitos haciendo que se desplacen todos los 
datos que salen a continuación. Esto puede restar legibili- 
dad a los resultados que aparecen en la pantalla, especial- 
mente en una tabla de resultados. 


Con el BASIC del Amstrad podemos eliminar estos problemas, 
ya que disponemos de las funciones TAB y SPC que se usan en 
conjunción con el comando PRINT para dirigir la salida a una 
determinada columna de la pantalla. 


SPC se usa para sacar un número determinado de espacios a 
la pantalla o, como veremos más adelante, a otro dispositivo 
periférico, mientras que la función TAB se usa para mover el 
cursor un número fijo de colummas relativas al principio de 
de la linea actual de impresión, empezando en una nueva 
línea si ya se ha pasado la columna. Un punto y coma termina 
ambas funciones. 


Podemos ver un ejemplo de estas dos funciones en el 
programa 6, CALENDARIO. 


Este programa nos muestra un calendario de un mes o año en 
particular. El calendario original fué creado por Julio 
Cesar, pero fijó el año con once minutos más de lo que 
debia. Esto se corrigió con la introducción del calendario 
Gregoriano, en Italia en 1582, aunque en Inglaterra no se 
introdujo hasta 1752. El programa no da respuestas correctas 
antes de esta fecha. 
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El programa usa una +fórmula en la subrutina 1000 que 
calcula el dia de la semana en que comienza un mes 
determinado. Para usar el programa, introduzca el mes como 
un número del 1 al 12, seguido del año con los cuatro 
digitos. 


PROGRAMA 6; CALENDARIO 


10 CLS 
ZO FRINT "CALENDARIO" 
ZO FRINT "INTRODUZCA MES MM/AAAA: "x 
40 d$ = "" 
SO FOR y = 1 TO 7 
60 IF y = 3 THEN c$ = "/" : GOTO 80 
70 c$ = INKEY$ : IF c$ = "" THEN 70 
80 FPRINT c$; 
290 d%$ = dé + c+ 
100 NEXT j 
110 m = VAL(LEFTS$(d$,2)) 2: y = VAL(RIGHTS (d%, 4)) 
120 IF míi1 OR ms12 THEN 10 
130 CLS 
140 FRINT " CALENDARIO " 
150 PFRINT : PFRINT "MES "¿mi¡SFC()3" Año "¡y 
160 FRINT : FRINT "DOM LUN MAR MIE JUE VIE SAR" 
170 GOSUB 1000 
180 d = dd: m = m+1 
190 IF ms12 THEN m= 1 3 y = y+l 
200 GOSUE 1000 
210 IF ddid THEN dd =dd+7 
220 n = 28+dd-d 
230 p = 4kXd+1 
240 FOR x = 1 TO n 
2590 PRINT TAB(p)5x5 
260 p = p+4 3: 1F p:=26 THEN p = 1 
270 NEXT x 
280 FRINT : FRINT : INFUT "Fulse ENTER para 
continuar".,q 
290 I1F q$ = "" THEN 10 
00 END 
100 mn = m-2 : 
1010 IF mm:0 THEN 10% O 
1020 mm = mm+12 1: yy = yy-1 
1030 cc = INT(y/100) : yy = yy-100xX*c 
1040 dd = 1 + INT(Z2.ó6*xmm-0.19)+yy+INT (yy/ 
4)+ INT (Cc /4)-2ZXkc 
1050 dd = dd MOD 7 
1060 RETURN 


El BASIC del Amstrad tiene otra forma más de modificar la 
posición actual de impresión; usando el comando LOCATE con 
las nuevas coordenadas x e y. 


CA 
e 


LOCATE 10,1 


Nos encontraremos este comando en numerosas ocasiones a lo 
largo de este libro. 


MODOS DE PANTALLA 


Hasta ahora hemos trabajado con una pantalla de 25 lineas 
de 40 caracteres. Cada carácter está compuesto por una 
matriz de 8x8 puntos o "pixels" que pueden estar iluminados 
u oscuros. Esto nos puede describir una pantalla compuesta 
de 320:200 puntos. Más adelante veremos cómo se pueden 
producir imágenes de alta resolución, mediante el control 
individual de estos puntos. Cuando la pantalla se encuentra 
en este modo, se dice que está en MODE 1. Hay otros dos 
modos llamados MODE O y MODE 2 que toman los atributos de la 
figura 3.4. 


MODE O MODE 1 MODE 2 


CARACTERES 125 líneas de 25 lineas de 25 lineas de 
120 caracteres 40 caracteres 80 caracteres 


FUNTOS 1200 alto por 200 alto por 200 alto por 
1160 ancho 320 ancho 640 ancho 


Figura 3.4:Modos de pantalla 


Cada uno de los modos de pantalla se pueden seleccionar con 
el comando MODE. 


COLOR 

Por fin hemos llegado al capitulo del color, un tema cuya 
importancia se ha mencionado en la introducción de este 
capitulo. El Amstrad es capaz de mostrar información en 27 
colores aunque el número de los que se pueden mostrar simul- 
táneamente está restringido, de acuerdo con el modo de 
pantalla, a los valores que aparecen en la figura 3.5. 

MODE O MODE 1 MODE 2 


Máximo número de colores | 14 4 2 


Figura 3.5S:Máximo número de colores 
Cada uno de los 27 colores disponibles está identificado 


por un código de color único que aparece listado en el 
apéndice C. Cada posición de carácter tiene dos colores 
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asociados. El color del fondo se elige con el comando FAFER 
y el color del carácter con el comando FEN. El número 
asociado a ambos comandos no es el código del color, sino un 
número de tinta que tiene un código de color asociado, que a 
su vez es definido con el comand INK. 


FEN 1 pone el primer plano de escritura del color 
asignado a INK 1 

FAFER 2 pone el fondo de los caracteres a imprimir del 
color asignado a INE 2 

mientras que 

INE 1,0 asigna el color 0 a INK número 1 


El color del borde se controla independientemente con el 
comando BORDER y el número especifica el código de color. 


Introduzca el siguiente ejemplo para ver pasar los colores 
cuando pulse una tecla cualquiera (excepto [ESCI) 


10 FEN 2: FAFER 1 
20 FOR y = 0 TO 26 
30 CLS 


40 BORDER j¡ 

30 INE 1,3 2: INE 2, (3+12)MOD 26 
60 LOCATE 15,10 : FRINT "COLOR"; 5 
70 IF INFEEYS$ = "" THEN 70 

80 NEXT j 


SELECION POR MENU 


Es una práctica muy coman en los programadores, empezar con 
una idea inicial y continuar añadiendo refinamientos extras 
hasta que la lógica del programa se asemeja a un plato de 
spagetis, con una estructura con numerosos saltos mandando 
el control en todas direcciones; es mejor usar la programa- 
ción estructurada. Esta es una metodologia en la que el 
programa se rompe en bloques o módulos, cada uno de los 
cuales tiene un propósito especifico. La programación 
estructurada intenta evitar la sentencia GOTO en un esfuerzo 
por hacer comprensible la lógica del programa. El romper el 
programa de esta forma permite probar por separado las 
rutinas para poder localizar fácilmente los fallos. 


Un método ideal para producir un programa que pueda tomar 
varias funciones es escribir cada una en un bloque separado 
y permitir al usuario seleccionar la seción mediante un 
"mena" con las opciones disponibles. 
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1)Proceso textos 
2)Control stock 
3)Contabilidad 


9)Salida 


Figura 3.6:Seleción por ment 


Por supuesto, no hay ninguna razón que impida que una vez 
hecha una selección aparezca otro menú mostrandonos una 
lista de opciones relacionadas con la elegida anteriormente 
de forma que el usuario pueda realizar su seleción 0 
retornar al menú principal. 


Hay numerosas formas en las que se puede escribir un menú. 
La más común es el método *Chino” donde el usuario seleciona 
una letra o un número de la lista. Veamos el siguiente ejem- 
plo; en este caso el usuario tiene cuatro opciones para 
elegir pulsantdio 1, 2, 30 4. Cuando se seleciona una opción, 
el programa comprueba que la opción seleccionada aparece en 
la cadena K%$ y después, si está presente, ejecuta la opcibn 
requerida como una subrutina, o si no está, vuelve a mostrar 
el mená principal. Construyendo el programa de esta forma, 
es fácil añadir funciones extras al programa con un minimo 
de cambios en el código existente. 


K$="1 2 3 q” 


subrut 1000  subrut 2000 subrut 3000 subrut 4000 


Mená ejemplo 


¡ (1)Ver Registro Cliente ¡ 
¡ (2)Añadir Registro ; 
i (3)Borrar Registro ! 
¡ (4)Salida ; 


Seleccione Opcion: 
Figura ne ad 
Una pequeña variación de este método es mover el cursor de 


arriba hacia abajo usando las teclas de control del cursor 
hasta que esté en la opción requerida. Después, pulsando la 
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tecla adecuada, se ejecuta la acción elegida. Esto se hace 
manteniendo un contador que se incrementa oO decrementa a 
medida que se mueve el cursor; la seleción del contador 
corresponde a la opción requerida. 


Programa 7: SELECCION POR CURSOR 


10 CLS 

20 LOCATE 9,6 : FRINT "*x*x*x MENU FRINCIFAL Xxx" 
ZO RESTORE : READ n 

40 FOR y = 1 TO nm 


SO READ as 

60 LOCATE 10,7+3 3 print j¡¿ab 
70 NEXT J 

80 p = 1 


90 IF pin THEN p = 1 

100 1F pil THEN p = nm 

110 pp =p 

120 LOCATE 9,7+p : FRINT ">" 

130 FOR y = 1 TO 200 3: NEXT j 

140 IF INFEY(18) ¿3-1 THEN 190 
150 IF INKEY(O) <3o-1 THEN p = p-1 







160 IF INKEY (2) <+-1 THEN p = p+i 
170 IF pispp THEN LOCATE 9,7+pp : FRINT " "o: 
GOTO 920 


180 GOTO 140 

190 ON p GOSUB 1000, 2000, 3000, 4000, 5000 
200 GOTO 10 

210 DATA S 

220 DATA "Salida" 

20 DATA "Ver Registro" 
240 DATA "Borrar Registro" 
250 DATA "Añadir Registro" 
260 DATA "Ayuda" 

1000 END 

2000 RETURN 

3000 RETURN 

4000 RETURN 

5000 RETURN 


El programa ha sido escrito para que le resulte fácil de 
acoplar a sus propios requerimientos. Para hacerlo, añada 
sus propias opciones a las sentencias DATA, la linea 210 
«debe tener el número de opciones, y después añada sus 
propias subrutinas, (asegúrese de que las llama en la linea 
190). Las teclas de control del cursor, arriba y abajo, 
moverán el cursor, y la opción será seleccionada pulsando la 
tecla [ENTER1. 
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PETICIONES POR PANTALLA 


Es muy normal encontrar programas en los que la información 
se pide linea por linea. For ejemplo: 


Introduzca Dispositivo de Entrada “ $TERM 
Introduzca Dispositivo de Salida 7 $LF 
Introduzca Nombre del Fichero Y“ FAGOS 
Introduzca Modo de Acceso 7 SOLO LECTURA 
Introduzca Modo de Exclusión Y COMFARTIDO 


La introducción de todos estos datos podria mejorarse si se 
pudieran mostrar todos los mensajes simultáneamente y el 
usuario pudiera corregir previamente los datos introducidos. 


Vamos a ver un ejemplo de petición por pantalla que maneja 
la entrada de un nombre, una dirección y un número de 
teléfono, para su uso en una aplicación como una lista de 
correo. Ha sido escrito de forma que pueda ser fácilmente 
ampliado para manejar sus propios requerimientos. La lista 
de preguntas junto con la longitud máxima de los campos de 
entrada se epecifican en sentencias DATA, al final del 
programa. 


Los datos de entrada se introducen en la posición del 
cursor. Este se puede mover por la pantalla usando las 
teclas de control del cursor. Cuando se han introducido 
todos los datos, se pueden aceptar pulsando la tecla [COPY1. 


Se usan dos contadores, LF y CF. LF se modifica con las 
teclas de cursor arriba y abajo, CF se modifica con las de 
izquierda y derecha; el cursor apunta al carácter en la 
linea que se está introduciendo. Fara registrar los datos de 
entrada se usa la matriz F$. A medida que se pulsan teclas 
alfabéticas y numéricas, éstas aparecen en la pantalla, 
añadiendolas a la matriz F$ en la posición apropiada. 


Nombre Juan Hernandez 
Domicilio Gran Via, 32 
Ciudad Galapagar 
Provincia Madrid 

Código postal 28078 
Teléfono $6304152 


Figura 3.8:Ejemplo de Fantalla 
Programa 8:PETICION POR PANTALLA 
10 FAFER O : CLS 
20 READ a$ 
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ZO LOCATE 14,4 : FRINT a+ 
40 READ n 
SÓ DIM £f$%(nm),x(m) 


60 cp = 1: io =1liv=0 

70 FOR j¡= 1 TO nm 

80 READ at,x (3) 

90 LOCATE 2,5+j : FPRINT at 

100 +4$(3) = SFACES (x (3)) 

110 NEXT j 

120 IF 1pin THEN cp = 1 : lp = 1 
130 IF cpild THEN cp = 1 

140 1F cpsx(l1p) THEN cp = 1 3: 1F visx2 THEN lp = 
1p+1 

1590 IF lpn THEN cp = 1 : lp = 1 
160 IF: l1p:i1 THEN cp = 1: lp = nn 
170 FOR j¿= 1 TO n 

180 FAFER 


190 LOCATE 14,5+j : FRINT £$(3) 

200 NEXT 3 

210 PAPER O 

220 LOCATE cp+13,1p+5 : PRINT CHR$(143) 


230 v= 0 

240 c$ = INKEYS$ 

250 IF c$ = "" THEN 240 

260 c = ASC (C$) 

270 IF c = 224 THEN 400 

280 IF c = 13 THEN cp = 1: lp = 1lp+1: y= 2 
290 IF c = 244 OR c = 240 THEN lp = lp-1 1 y = 2 
300 IF Cc = 241 OR c = 245 THEN lp = lp+1 ii v= 2 
310 1IF c = 242 OR c = 246 THEN cp = cpuld iz v=1 
320 1F cc = 2497 OR c = 2423 THEN cp = cp+ioz v=1 
330 IF v = O THEN MID$(f$(1p),cpj1) = Cc$ 1: cp = 
cp+1 

340 GOTO 120 

400 CLS 

410 FOR j¡ = 1 TO n 

420 PRINT f$(j3) 

430 NEXT j 

440 END 


1000 DATA "AGENDA DE DIRECCIONES" 
1010 DATA 6 

1020 DATA "Nombre", 20 

1030 DATA "Dirección", 25 

1040 DATA "Ciudad",15 

1050 DATA "FroVincia",12 

1060 DATA "Código Fostal",5 

1070 DATA "Teléfono", 1i 


COLORES PARPADEANTES 


Para hacer que el texto, el fondo o el borde parapdeen, 
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podemos especificarle un color secundario en las sentencias 
INK o BORDER. 


INE 1,10,20 cualquier color asociado con INE 1  alternará 
entre los colores 10 y 20 

BORDER 10,20 de forma similar, el borde alternará entre los 
colores 10 y 20. 


La frecuencia de la alternancia de colores puede ser 
especificada con el comando SFEED INE, el primer valor 
especifica el periodo del color primario y el segundo valor 
especifica el periodo del color secundarioí(los periodos se 
dan en unidades de 0.02 segundos). 


CAUCES 


Cuando *hablamos* con los dispositivos de E/S lo hacemos 
por medio de los cauces. El concepto de cauce es muy común 
en los ordenadores y no es dificil de comprender. En el 
Amstrad hay diez cauces de entrada y otros tantos de salida 
y Cada uno está asociado a uno de los dispositivos de E/S 
que aparecen en la figura 3.9. Fara comunicar con un 
dispositivo determinado, debemos especificar el número de 
cauce después del comando de E/S. Hasta ahora hemos omitido 
el número de cauce en nuestros programas ya que el sistema 
operativo del Amstrad toma como defecto el cauce 0. 


Número de Cauce Dispositivo 
O Q 

1 1 

2 2 

3 3 

4 ventana 4 

S 5 

ó6 l=) 

7 7 

8 Impresora 
dá Casette 
Figura 3.9 


For ejemplo, para sacar un listado a la impresora, debemos 
usar LIST,*$8. Hablaremos de las E/S del casette en el 
capitulo 8. Lo más interesante de la figura 3.9 es que hay 
ocho cauces dedicados a pantallas y ya veremos cómo nos 
permite dividir la pantalla en áreas separadas, cada una de 
las cuales tiene diferentes atributos o se usan para 
propósitos diferentes. Este tipo de áreas de la pantalla se 
llaman ventanas. 


od 
po 


VENTANAS 


Para preparar una ventana en la pantalla, debemos definir 
su posición usando el comando WINDOW que especifica el cauce 
seguido de las coordenadas de la ventana. For ejemplo, 
considere la ventana de la figura 3.10. 





Figura 3.10 
Para definir esta ventana al cauce 1, usaremos: 
WINDOW +1, 11, 23, 10, 17 


Y a partir de ahora, todos los comandos de E/S que especi- 
fiquen el cauce 1, irán a parar a esta ventana, Cuando se 
use el interior de la ventana se debe tener en cuenta que 
las coordenadas empiezan con 1,1 en la esquina superior 
izquierda de la ventana. 


Veamos el siguiente ejemplo que puede modificarse +fácil- 
mente para incluirlo en cualquier programa. La idea es que 
si ocurre un error, la subrutina de la linea 1000 es llamada 
y muestra un mensaje de error parpadeante en la linea 
inferior. Da tambien un pequeño *beep” para que el usuario 
lo reconozca pulsando una tecla. Observe que, como la 
ventana O está sobre el mensaje de error, limpiando esta 
ventana limpiamos automáticamente el mensaje de error. En el 
capitulo 6 veremos como poner trampas de error que llamen a 
la subrutina correspondiente. 


10 e$ = "mensaje del usuario" 


20 WINDOW $1,1,40,25,25 
3O INK 3,3,26 


44 


40 FAFER $1,3 : FEN $1,0 

So CLS 

60 FRINT "Fulse *e”" 

70 IF INKEYS <;"e" then 70 

80 GOSUB 1000 

90 GOTO S0 

1000 LOCATE +$1,1,1 

1010 PRINT $1, "Error : "se$ : FRINT CHR$ (7) 
1020 IF INKEY$ = "" THEN 1020 

10:30 RETURN 


Con ésto concluimos el capitulo . Las funciones que hemos 

visto hasta ahora, como color, modos de pantalla, control de 
impresión, cauces, ventanas, etc, las volveremos a encontrar 
de nuevo a medida que nos introduzcamos en E/S más 
avanzados, incluyendo gráficos y sintetizador de sonido. 
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CAPITULO CUATRO 
ORDENADORES, NUMEROS 


Y MATEMATICAS 


La mayoria de las personas piensa que un ordenador puede 
manejar expresiones aritméticas muy complejas, es un error 
pensar que ésta tarea le resulta sencilla ya que en realidad 
es una de las más duras. Hay dos razones principales para 
afirmar esto; primero que se espera que que el ordenador sea 
capaz de tratar un amplio rango de números y segundo que las 
unidades que componen la memoria del ordenador están 
limitadas a números enteros dentro de un rango especifico; 
el Amstrad puede tratar del O al 255. Sin embargo, si usamos 
un lenguaje de alto nivel no hace falta conocer los métodos 
complicados que se usan para evaluar expresiones y funciones 
aritméticas y matemáticas, ya que lo hace automáticamente el 
sistema operativo. Cuando se programa en código máquina es 
posible acceder a estas rutinas del sistema operativo 
mediante llamadas a las subrutinas que las componen, pero 
hay que tener mucho más cuidado al pasar oOoperandos y 
operadores de forma que las rutinas puedan comprenderlos, 
comprobando que no existan rebasamientos, acediendo a los 
resultados desde posiciones correctas de memoria e 
interpretando los resultados mediante la conversión de la 
forma en que son devueltos a la requerida. 


Las matemáticas son un campo muy amplio y su uso es muy 
común en ordenadores. El control financiero por ordenador, 
navegación, defensa, diseño y manufactura asistidos por 
ordenador, automatización de oficinas, control de existen- 
cias, juegos, etc, requieren multitud de evaluaciones 
numéricas. Debido a la compleja tarea que puede representar 
el seguimiento y vuelo de un aeroplano, que involucra 
factores como velocidad, condiciones meteorologicas, la 
forma esférica de la Tierra, O mantener simplemente la 
puntuación en un juego. Hay varios niveles de matemáticas y 
no es necesario preocuparse si no se comprenden algunas de 
las funciones complejas que es capaz de desarrollar el 
Amstrad. Las matemáticas del tipo de suma y multiplicación 
no suelen despertar gran interés, pero no se alarme si en la 
última sección de este capitulo tratamos algunas especificas 
para ingenieros, cientificos o técnicos. Aunque el lector 
tenga dificultad, es recomendable ¡intentar realizar los 
ejemplos que ilustran lo que el Amstrad es capaz de hacer. 
Las matemáticas pueden ser divertidas y con la ayuda de un 
ordenador pueden hacerse aún más entretenidas. Los lectores 
que estén interesados en estos temas pueden leer el libro: 


"MATHS + COMFUTERS = FUN" por G T Childs 
(publicado por Sigma Technical Press) 
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Este libro es de utilidad para los niños y para muchos 
adultos, ya que demuestra que las matemáticas no son nada 
difícil. Trata muchos temas desde matemáticas elementales 
hasta las avanzadas y contiene numerosas ayudas, divertidos 
rompecabezas y unos 50 programas en BASIC. 


LOS NUMEROS EN EL AMSTRAD 


Aquellos lectores que tienen poca experiencia en matemáti- 
cas, probablemente nunca se han parado a pensar la cantidad. 
de formas en que se pueden representar los números. For 
ejemplo, los tres tipos de números que siempre nos han 
enseñado son los enteros, fracciones y decimales. De modo 
similar, hay tres notaciones particulares que debemos tener 
en cuenta y todas ellas se usan comúnmente en los 
ordenadores. Las dos primeras le serán familiares aunque se 
hayan cambiado los nombres. 


ENTERO Los enteros son aquellos números que están 
formados por una secuencia de digitos y que no 
tienen punto decimal ni componente factorial. 


Pueden ser positivos o negativos. ej. -156, -22, 
=di 0, De 69, Si 


REAL Los números reales son una secuencia de digitos 
con punto decimal al principio, al final o entre 
los digitos. Los que se encuentran a la 


izquierda del punto son potencias 'positivas de 
10 y forman el componente entero del número. Los 
de la derecha del punto son potencias negativas 
de 10 y forman el componente fraccionario. Los 
números reales pueden ser positivos o negativos. 
eje 22.3, 0.4, 31.0234, .125, -0.2739. 


Para ilustrar esta idea: 








A 5x10?=5x 0.001 = 0.005 
Fotencias negativas 0x10?=0x 001 = 0.00 
de 10 1x101=1x 01 = 01 

ON 7x 100 =7x 1 = 70. 
Fotencias positivas 1x100 =1x 10 = 10.0 
de 10 6 x 10? = 6 x 100 = 600.0 

617.105 


EXPONENCIAL Los números exponenciales son los escritos en 
una notación Capaz de representar tanto los 
números muy grandes como los muy pequeños. Se 


48 


escriben usando un número real seguido por el 
simbolo *E” y otro número entero. *E” significa 
"veces 10 a la potendia". Donde yEx significa "y 
veces 10 a la potencia x". 


ej. 


1.234E-2 =1.234x10?=  0.01234 
1.234E0 =1.234x100 = 1.234 
1.234E2 =1.234x10? =123.4 


El efecto de un entero seguido de E” es 
indicar cuantos lugares ha sido corrido el punto 
decimal. Un valor positivo significa que ha sido 
corrido hacia la derecha y un valor negativo 
hacia la izquierda. 


1E10 significa 1 seguido por 10 ceros 
10, 000, 000, 000 


Usando esta notación cientifica, el mayor número 
(el más lejano de cero) que es capaz de almace- 
nar el Amstrad es aproximadamente 1.7x10%; y el 
más pequeño (el más cercano al cero) 2.9 x 10 
Los números son almacenados con una exactitud 
entre 9 y 10 digitos. 


En el capitulo S trataremos los sistemas numéricos 
hexadecimal y binario, que son formas diferentes de expresar 
los números mucho, más aproximadas a la forma en que los 
almacenanan los ordenadores; hasta entonces, tendremos 
bastante con las notaciones que acabamos de ver. 


Variables 


Todos los lectores saben que a los datos almacenados por el 
usuario en la memoria del Amstrad se le dan nombres simbd- 
licos, llamados variables. Las variables se pueden usar para 
contener datos numéricos enteros, reales o cadenas de datos, 
y se distinguen por los respectivos simbolos %, ' y $. 


a% entero 
a! real 
a$ cadena 


En efecto, se puede usar el mismo nombre para los tres, ya 
que constituyen variables separadas. Si se omite el tipo de 
variable, se asume el tipo real para la variable. Es posible 
redefinir el tipo por defecto mediante los comandos DEFINT, 
DEFREAL Y DEFSTR; con ellos se especifica un rango de le- 
tras, dentro del cual toma el valor por defecto. 


49 


DEFINT I-—N las variables que comien en po Il, J, L, M, 
N se considerarán variables enteras si se 
omite el tipo de variable. 


Y ahora veamos las funciones del Amstrad. 
FUNCIONES NUMERICAS SIMPLES 


INT 
La función INT nos devuelve el componente entero del 
argumento redondeándolo por abajo. 


PRINT INT(-5.6), INT(O0), INT(5.6) 
imprimirá -6, O y S. 


FRINT (X+0.5) redondea X al entero más cercano 


El programa 2 nos demuestra el uso de la función INT 
buscando el divisor mayor de dos números positivos, 
encuentra el mayor número por el que ambos números puedan 
ser divididos en partes enteras. Usa un algoritmo muy 
conocido y que resulta fácil de entender siguiendo el 
programa sobre el papel. Escribe tres colummas etiquetadas 
como A, E y C y guarda el valor de cada variable en su 
columna correspondiente a medida que cambia. 


Programa 9:MAYOR FACTOR COMUN 


10 CLS 

20 FRINT "MAYOR FACTOR COMUN" 

30 FRINT 

40 INFUT "Introduzca el primer número";a 
30 input "Introduzca el segundo número";b 
60 IF azi OR bi THEN 40 

70c=bib+= a-bkxINT(a/b) : a= c 

80 IF b2i:0 THEN 70 

90 FRINT "M.F.C. es"ic 


100 IF INKEEYS$ = "" THEN GOTO 100 
110 GOTO 10 
CINT 


La función CINT devuelve el componente entero del argumento 
redondeandolo al entero más cercano en el rango -32768 a 
32767. 

FRINT CINT (nm) 


CREAL 


La función CREAL devuelve el argumento de un número real. 
FRINT CREAL (n) 
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FIX 

La función FIX devuelve el componente entero del argumento 
truncando el componente fraccionario. 

FRINT FIX(nm) 


ROUND 

La función ROUND devuelve el argumento redondeandolo a un 
número especificado de decimales o potencias de diez. 

PRINT ROUND (341982,-4) dará 2342000 

FRINT ROUND (3.1415926,4) dara 3.1416 


MIN 4 

La función MIN aplicada a una lista de argumentos nos 
devuelve el valor minimo. 

FRINT MIN(10,5,15,25,10) dará 5 


MAX 

La función MAX es similar a la MIN pero devuelve el valor 
mayor 

FRINT MAX (-1,-2.-1,-4) dará -1 

RND 


La función RND es un generador de números aleatorios que 
puede se sumamente átil en los juegos que requieren un 
elemento de suerte. El generador de números no es realmente 
aleatorio ya que funciona con los valores secuenciales de 
una larga lista de números. La lista es muy larga por lo que 
el generador de números aleatorios, empezando en una 
posición desconocida, cumple con los requerimientos de la 
mayoria de lus programas. 


LET a = RND asignará un valor a *a”? que será mayor o 
igual que O y menor que 1. 


RND se ilustra en el programa 10 que simula un dado que gira 
cien veces; se consigue obteniendo un entero aleatorio entre 
1 y ómcon la siguiente linea: 


INT(RND*X6+1) 


Ya que se ha puesto en duda lo aleatorio que puede ser RND, 
el programa evalúa continuamente dos valores matemáticos, 
promedio y variación. Los promedios son muy comunes y usted 
probablemente sabrá que es la suma del valor de lo datos 
dividido por el número de ellos; cuando tiramos un dado 
verdadero, el promedio esperado es de 3.5. La variación es 
menos común para los no matemáticos e indica la extensión a 
la que tienden los valores del promedio, o una medida de la 
anchura de distribución. La fórmula matemática para evaluar 
los promedios y variaciones puede no ser interesante para 
algunos lectores, pero debe ser conocida para comprender el 


Si 


funcionamiento del programa. Debemos saber que el simbolo 2 
significa "la suma de" por lo que: 


2 y Variación: 0 =Y (x,-x)? 
Promedio: x= —_—— 
n A n 
"2x2-x2 (despejando matemáticamente) 








n 


Para algunos lectores puede resultar dificil comprender 
cómo funcionan las variaciones; se ha omitido una explica- 
ción al respecto porque involucra unas matemáticas que no 
son importantes para el usuario del Amstrad. Sin embargo son 
de gran uso en programación comercial. 


Volviendo a los números aleatorios, hay un comando 
RANDOMIZE que coloca la posición del número aleatorio en un 
punto determinado. El parámetro de este comando es un valor 
numérico conocido generalmente como gérmen. Iniciando el 
gérmen a un valor prefijado garantizamos que realizará la 
misma secuencia. Fara generar un número aleatorio real 
debemos usar RANDOMIZE TIME que pone el gérmen a un valor 
basado en el reloj interno del Amstrad de forma que el 
resultado dificilmente se repetirá. Si no se le pone el 
valor del gérmen, el Amstrad preguntará por él. Y ahora 
vamos a nuestro programa: 


Programa 10:DISTRIBUCION DE DADOS 


10 RANDOMIZE TIME 
ZO CLS 

30 PRINT "DISTRIBUCION DE DADOS" :* FRINT 
40.58=0:1255=0 

S0 FOR x = 1 TO 100 

60 d = INT(RNDxX6+1) 

70 5 = st+d 3: ss = ss+dXd 

80 PRINT d: 

90 NEXT x=x 

100 a = s/100 

110 FRINT : FPRINT : FRINT "FROMEDIO";¡a 
120 v = s5s5/100-aka 

130 FRINT : FRINT "VARIACION":¿v 

140 FRINT : FRINT "Fulse una tecla" 

150 IF INEKEYS = "" THEN 150 

160 GOTO 20 
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Puede cambiar la entrada del promedio y de la variación a 
otra cosa que sea más útil para usted. Estoy seguro que el 
director de su banco se impresionará si le enseña el 
promedio y la variación de su cuenta para persuadirle de que 
le descuente las comisiones bancarias. 


La función RND tiene una forma más, darle un argumento 
numérico, con lo que conseguimos los siguientes resultados: 


Si es positivo -devuelve un número aleatorio. 
Si es cero -devuelve el número aleatorio anterior 
Si es negativo -recoloca la posición en la secuencia 


y devuelve el primer número de la 
nueva posición. 


El próximo programa demuestra cómo, poniendo el gérmen con 
RANDOMIZE a un valor, la secuencia de números generada es 
siempre la misma. El programa 11 se usa para codificar y 
decodificar mensajes secretos y funciona de modo similar al 
dispositivo alemán "Enigma" usado en la segunda guerra 
mundial. Esta máquina dependia de un código secreto para 
cifrar los mensajes, reemplazando unos caracteres por otros. 
Para hacerlo más dificil, si una letra aparecia varias veces 
en un mensaje, nunca era reemplazada por el mismo carácter. 


Después de introducir el programa y el código, pulse: 
c* para codificar el mensaje. 

?d”? para decodificarlo 

*r* para iniciar el código 

*n? para introducir un nuevo código 

*t” para volver a modo comando 


, 


El programa usa un generador de números aleatorios para 
reemplazar los caracteres. La idea básica es la de ejecutar 
RANDOMIZE n para comenzar siempre en la misma posición en la 
lista de secuencias. El gérmen que se usa depende de los 
caracteres del código. Fulsando *r* volvemos la secuencia de 
números aleatorios a su posición inicial para el código 
elegido. Cuando se mande un mensaje es importante que el que 
lo recibe conozca el código, para que puede colocar el 
generador de números aleatorios en la posición correcta de 
comienzo. Recuerde cambiar el código cuando sea necesario y 
hacerle conocer a su aliado la posición de los espacios(si 
hay un espacio en la primera posición, debe introducir el 
mensaje entre comillas. 


Programa 11:ENIGMA 
10 b$ = SPFACES$(1) + 
"0123456789ABCDEFGHI JELMNOPORSTUVWXYZ" 


20 b$ = b$ + b$ 
30O CLS : PRINT "CODIFICADOR»+ ENIGMA" 
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40 FRINT : INFUT "Introduzca el Código";c% : 

c$ = UFFERS (c$) 

S0 IF LEN(c$):2 THEN 40 

60 RANDOMIZE 10*XASC(LEFTS$S(c$,1)) + 

ASC(RIGHTS (c$,1)) 

70 CLS : FRINT "CODIFICADOR ENIGMA" : FRINT 

80 FRINT "Fulse:" : FRINT 

90 FRINT "t)TERMINAR" : FRINT "c)CODIFICAR" : FRINT 
"d)DECODIFICAR" 

100 FRINT "r)REINICIAR CODIGO" : FRINT "n)NUEVO 


CODIGO" 

110 PRINT : INFUT a$ : as$=UFFERS$ (at) 
120 IF a$ = "T" THEN CLS:END 

130 IF a$ => "R" THEN 60 

140 IF a$ = "N" THEN 30 

150 IF a$ = "C" THEN 250 


160 IF a$::"D" THEN FRINT CHR$(7) : GOTO 70 
170 FRINT : FRINT "Introduzca el mensaje a 
decodificar" 

180 PRINT : INFUT m$ : m$ = UFFERS(m$) : FRINT 
190 GOSUB 360 

200 p = INT(RNDXZ26+1) 

210 FRINT MID$(b$,v+p,1); 

220 m$ = MID$(m$, 2) 

230 IF m$ = "" THEN 230 

240 GOTO 190 

2590 FRINT : FRINT "Introduzca mensaje a codificar" 
260 FRINT : INFUT m$ : mse=UFFERS(m$) : FRINT 
270. GOSUR 360 

280 p = INT(RNDxZ26+1) 

290 FRINT MID$(b$,37+v-p,1); 

300 m$ = MID$ m$,2 

310 IF m$ = "" THEN 2330 

320 GOTO 270 

230 PRINT : FRINT : FPRINT "Fulse una tecla para 
continuar " 

340 IF INKEYS$ = "" THEN 340 

¿350 GOTO 70 

360 y = ASC(m$) 

270 IF v:i48 OR v:920 THEN v=47 

280 IF v:64 AND v:i91 THEN v=v-7 

390 v = v-46 

400 RETURN 


FUNCIONES MATEMATICAS 
Ahora vamos a hechar un vistazo a las funciones más comunes 
del Amstrad, para aplicaciones matemáticas y cientificas; 


aunque, como ya hemos dicho anteriormente, algunos lectores 
puedan encontrarlo muy alejado de sus propias necesidades. 
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EXP 

EXP (x) es igual a la constante *e” elevada a la potencia x 
donde ?e” se define como 2.718281828. Fara explicar el 
origen de este curioso número, considere lo que ocurre a la 
expresión (1+Vn)” , como n se hace bastante largo, los' mate- 
máticos dicen que "n tiende a infinito" y lo escriben como 
n>0) Ejecutando el programa de abajo, vemos que nuestra 
expresión tiende al número e a medida que n tiende a 
infinito. 


escrito matemáticamente Limite(1+%)"=e 
n=>oo0w 


Se obtiene un resultado más general de la expresión 
(1+%) . Encontramos que tiende a a medida que n tiende 
a intinito. 


Limite (1+y)"=e* 


n— o 


De modo que podemos escribir un programa simple para calcu- 
lar el número *e”: 


10 FRINT "exponencial e" 
ZO FOR x = 0 TOS 

30 m<= 10Px 

40 e = (1 + 1/n)%n 

S0 PRINT n¡TAB(10);e 

60 NEXT x 


Observe que no podemos demostrar completamente n tendiendo 
a infinito ya que tendriamos una gran inexactitud debida a 
las restricciones contenidas en las rutinas. numéricas del 
sistema operativo del Amstrad. 


Se puede obtener un gráfico de e” en función de x que se 
veria asi, a este tipo de curva se le llama “curva 
exponencial”. : 


, 
e* ? 


Figura 4.1:Curva exponencial 
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LOG 

La función LOG produce el "logaritmo natural” de un número. 
El logaritmo de un número es la potencia a la que hay que 
elevar la base para producir dicho número. Los logaritmos 
naturales usan la base e. 


LOG (25)=3.21287583 ya que e? =25 


Usando la siguiente relación se pueden obtener logaritmos 
en cualquier base a partir de los logaritmos naturales. 


Logs(x) = LOG(x) 
LOG(s) 


LOG10 

Si el valor de s de la ecuación anterior fuera 10, el 
logaritmo resultante se llamaria "logaritmo coman". LOG10 
produce el logaritmo común de un número. 


SQR 

La función SOR obtiene la raiz cuadrada de un número. Se 
debe tener cuidado ya que la ralz cuadrada de un número 
negativo producirá un error. 


A vx si x es mayor que O 
error si x es menor que 0 


ABS 

La función ABS devuelve el valor absoluto de un número, éste 
tiene la misma magnitud que el argumento pero con signo 
positivo. 


ABS (x)= *« si es mayor o igual a O 
ES, si es menor que € 


SGN 

La función SGN devuelve el signo de un número, +1 si el 
argumento es positivo y -1 si el argumento es negativo o 0 
si el argumento es cero. 


+1 si x es mayor que O 
SG6N (x)=¿0 si x es igual a O 
-1 si x es menor que O 


Ahora veamos algunos ejemplos del uso de este tipo de 
funciones. 
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Ecuaciones de segundo grado 


Este programa usa la función de la raiz cuadrada, SOR. Una 
ecuación de segundo grado es la que viene en la forma: 


ax+bx+c=0 


donde a, b y c se conocen como constantes y xx se desea 
encontrar el valor de x. La siguiente fórmula sirve para 
solucionar la ecuación pero debemos tomar la regla del 
programador comercial y considerar que el método descrito es 
corecto. Asi que la solución es: 


x=-b+ V(b?4trax*c) 


2*a 


Si bi4karxc es mayor que cero, la expresión dentro de la ralz 
cuadrada puede ser evaluada y tendremos dos soluciones. Se 
las conoce como soluciones reales. 


Si bi4*a*c es igual a cero, la parte de la raiz cuadrada no 
existe y solo hay una solución para x. Esta es también una 
solución real. 


Si bi4*a*c es menor que cero, la raiz cuadrada de la 
expresión no es válida. La mayoria de los lectores se 
contentarian con decir que no tiene solución pero, es eso 
cierto? Los matemáticos han rodeado el problema usando una 
notación llamada números complejos. Estos números se 
representan por x+iy, donde x es el componente real, y es el 
imaginario e i representa v(1) . Volviendo a nuestro 
problema, la solución a nuestra ecuación es un complejo cuya 
parte real es -b/(2%ka) y la parte ¡imaginaria es igual a 

(4*a*c-b?)/(2*a) y ambas expresiones pueden ser evaluadas. 
Observe que las soluciones complejas no pueden ser evaluadas 
directamente por el BASIC del Amstrad y debe tenerse cuidado 
de no usar SOR con un número negativo ya que nos produciria 
un error que interrumpiria la ejecución. Por fortuna para la 
mayoria de nosotros, los números complejos no se usan todos 
los dias. 


Programa 12:ECUACIONES DE SEGUNDO GRADO 


10 CLS : FRINT "ECUACIONES DE SEGUNDO GRADO" : 
FRINT 

20 INFUT "Introduzca el coeficiente a";za 

ZO INFUT "Introduzca el coeficiente b":b 

40 INFUT introduzca el coeficiente c";ic 

50 FRINT 

60 d = bxkxb-4kaXc 

70 IF díi0 THEN 120 


37 


80 FRINT "Raices reales" 


90 FRINT "1. x = "3 (—b+SOR (d))/(2*a) 

100 FRINT "2. x= = "3 (—b-SOR(d))/(2kXa) 

110 GOTO 150 

120 FRINT "Raices complejas" 

130 FRINT "Farte real = ";-b/(2*ka) 

140 FRINT "Farte imaginaria = "¡SQR(-d)/(2Xa) 


150 FRINT : FRINT "Fulse una tecla para 
continuar" 

160 IF INKEEYS = "" THEN 160 

170 GOTO 10 


Números primos 


Un número primo es un entero que solamente es divisible por 

si mismo o por 1. El programa 13 imprime los 100 primeros 
números primos, asumiendo que los dos primeros son el 2 y el 
3 y que todos los demás números primos son impares. 


El programa comprueba si el número impar x es primo divi- 
diéndolo por todos los números primos menores que que se 
han encontrado; Si el resto no es cero, el número x es primo 
también. Hay un punto que necesita una explicación, por qué 
dividir solamente por los números primos menores que ?. No 
se usan los números no-primos porque pueden descomponerse 
en, por lo menos, dos números primos. Los números mayores 
que no se usan porque, si fueran divisores, existiria por 
lo menos uno menor que 


A medida que se obtienen los números primos, se almacenan 
en la matriz P(100) de forma que pueda ser usado para 
comprobar los siguientes números. Ya que la aritmética del 
Amstrad solo puede calcular con exactitud hasta figuras 
significativas, asumimos que un número es divisor si el 
resto es menor que 1E-10. 


Programa 131 NUMEROS PRIMOS 


10 CLS : PRINT "NUMEROS PRIMOS" 
20 DIM p(100) 


ZO p(l)=2 : p(2)=3 2 x=9 ¿2 n=2 

40 FRINT "El primo "¡1;TAB(18)5 "es" ; p(l) 
SO FRINT "El primo "¡2;TAB(18); "es" y p(2) 
60 FOR j¡ = 2 TO n 

70 1F x/p(3) — INT(</p(j)) 21E-10 THEN 1:30 
80 IF SOR (x) < p(3) THEN 100 

90 NEXT 5 

100 pin) = x 


110 "El primo ";ns5TAB(18); "es" 3 p(m) 
120 n = n+1 
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1730 x = x+2 


140 I1F ni101 THEN 60 
FUNCIONES TRIGONOMETRICAS 


El Amstrad dispone de cuatro funciones trigonométricas, SIN 
(seno), COS (coseno), TAN (tangente) y ATN (arco tangente). 


Las funtiones trigonométricas funcionan con ángulos, y aqui 
es donde encontramos el primer problema. La mayoria de las 
personas miden los ángulos en grados; donde el circulo está 
dividido en 360 grados, un ángulo recto tiene 390 grados y 
una linea recta tiene 180 grados. Sin embargo, los 
matemáticos prefieren medirlos con una unidad mayor llamada 
radian que es el ángulo delimitado por un arco cuya longitud 
es igual a la del radio. 


Figura 4.2 


For definición hay dos Pi radianes en un circulo, siendo Pi 
aproximadamente 3.14159265358 y se escribe r. For lo tanto 
un radian tiene *%%, radianes que vienen a ser 57.3 grados. 


Para convertir radianes a grados, multiplicamos por '%, 
radianes = '“*'%Y = 50 grados 

Fara convertir grados a radianes se multiplica por so 

S grados = 45k Y%eo = Y radianes. 


En el Amstrad tenemos la función PI. También tenemos la 
opción de acceder a radianes o grados en las operaciones 
trigonométricas mediante los comandos DEG y  RAD; los 
radianes se usan como defecto. Mientras que la definición de 
las funciones trigonométricas es bastante simple, la 
explicación de su uso no lo es. La lista de las aplicaciones 
seria infinita, por lo que será suficiente que digamos que 
son de un valor inapreciable; su importancia para la ciencia 
y la tecnologia es equivalente a la del oxigeno para la 
vida. 


Veamos ahora las cuatro funciones. Consideremos el 
siguiente triángulo rectángulo con un ángulo de X radianes y 
sus lados etiquetados como opuesto, adyacente e hipotenusa. 


Hipotenusa 
(H) Opuesto 
(0) 


Figura 4.3 Adyacente (A) 


Seno, coseno y tangente se pueden definir como la razón de 
las longitudes de unos lados respecto a otros. 


SIN 

El seno del ángulo X se define como la razón de la longitud 
del lado opuesto con la longitud de la hipotenusa, en 
cualquier triángulo rectángulo con un ángulo de X radianes. 


SIN(X)= 0 
H 


Un gráfico de SIN(X) dibujado se veria asi: 


Sin x 





Figura 4.4:La Onda del Seno 

cos 

El coseno del ángulo x se define como la razón de la 
longitud del lado adyacente con la hipotenusa. 


COS(X) =A 
H 


Un gráfico de COS(X) se veria asi: 
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Figura 4.S:La Onda del Coseno 

TAN 

La tangente del ángulo X se define como la razón de la 
longitud del lado opuesto con la del adyacente. 


TAN(X) = 0 
A 


Un gráfico de TAN(X) se verla asi: 


Tan x 





Figura 4.6:Las Líneas de la Tangente 
La función trigonométrica que queda es: 


ATN 
El arco tangente de y, devuelve el arco cuya tangente es y. 


Los valores del arco seno y arco coseno, que son los 


inversos del seno y el coseno, pueden calcularse mediante la 
siguiente fórmula 
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y 
A (y)= EN 
rco seno(y)= ATN SS 


y 
Arco coseno(y)= ATN |————]| + E 
SQR(1-y?) 2 


En ambos casos y se encuentra en el rango -1<=y<=+1 


Aunque desafortunadamente el Amstrad carece de las 
funciones para obtener los valores del arco seno y arco 
coseno, el siguiente programa nos demuestra que es relativa- 
mente simple su cálculo usando la función ATN. 


El programa 14 calcula los ángulos de un triángulo del que 
se conocen las longitudes de sus tres lados. Consideremos el 
triángulo de la siguiente figura del que se conocen las 
longitudes de A, B y C. 


Sabemos que existe la siguiente relación: 


C?= A?+B?-2*A*Bx* Coseno(c) 


A?+ B?-C? 
Despejando la ecuación tendremos:c=arco cos pa 


(2* A*B) 


Existen relaciones similares para los dos ángulos 
restantes. -El programa 14 permite introducir las longitudes 
de los tres lados y calcula los ángulos en grados. Recuerde 
que la suma de los tres aAngulos de un triángulo es 180 
grados, de este modo tendremos una pequeña prueba de la 
exactitud del Amstrad. 


Programa 14: TRIANGU' M 


10 CLS : FRINT "TRIANGULO" : FRINT 
20 DEF FN t(x,yaz2) = (yky+zXkz=xX:)/(2XyXz) 


ZO DEF FN aí(x) = 90-ATN(x/SOR (1-:<Xkx)) 
40 INFUT "Introduzca lado uno";a 

50 INFUT "Introduzca lado dos":;¡b 

60 INFUT "Introduzca lado tres"¿c 

70 PRINT : PRINT 

80 DEG 

90 x = FN t(a,b,c) 


100 IF ABS(x)2%1 THEN PRINT "Invalido!!" 


110 aa = FN a(x) 
120 x = FN t(b,a,c) 


130 IF ABS (x )>1 THEN FRINT "Invalido!!" 


140 bb = FN a(x) 
150 x = FN t(c,a,b) 


160 IF ABS(x)>1 THEN PRINT "Invalido!!" 


170 cc = FN aíx) 

180 FRINT "Angulo opuesto a lado uno" 
(aa, 2) . 

190 FRINT "Angulo opuesto a lado dos" 
(bb, 2) 


200 FRINT "Angulo opuesto al lado tres" 


X0E/2) 

210 FRINT 

220 PRINT "La suma de los ángulos es" 
230 PRINT 


¡ GOTO 230 
¿ GOTO 2730 


¿ GOTO 230 
ROUND 
ROUND 

; ROUND 


aa + bb + cc 


240 FRINT "Pulse una tecla para continuar" 


2590 IF INKEYS = "" THEN 250 
260 GOTO 10 


PROGRAMACION RECURRENTE 


Vamos a hechar una breve ojeada a la técnica de 
llamada recurrente que puede ser útil algunas vVECeS, 
especialmente para evaluar funciones matemáticas que con- 


tienen bucles de proceso repetitivo. En BASIC, 


recurrente es aquella que se llama a si misma 
producir soluciones claras y elegantes. 


Y 


"software" 


una rutina 
que suele 


Por ejemplo, consideremos la expresión matemática factorial 


n (on!) que se expande a: 


n'=nk(n-1)X(n-2)X......X3K2Xx1 


donde n es un entero positivo (ej. 6'=615%X4x3x2%1=720) 


que equivale a: 


n*(n-1)! n>1 
n!= 
1 n=1 
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Se puede escribir una subrutina para evaluar n! con n 
multiplicado por el resultado de llamarse a si misma para 
evaluar (n-1)'. Debemos tener mucho cuidado de para en 1! 
para evitar las llamadas recurrentes. 


En este momento es necesario ver como controla el sistema 
operativo la llamada anidada a la subrutina usando lo que se 
llama la pila GOSUB. Veremos con más detalle las pilas en le 
capitulo 7; hasta entonces es suficiente saber que, cuando 
se llama a una subrutina, el número de la linea de la 
sentencia GOSUB que llama se almacena hasta que encuentra 
una sentencia RETURN; entonces retorna el control a la linea 
siguiente a la última almacenada, que es borrada de la pila. 
Si se ejecutan más RETURN que sentencias GOSUB, se vacia la 
pila y ocurre un error. 


Programa 15: RECURRENTES 


10 CLS 

ZO INFUT "Introduzca un valor"ix 

30 GOSUE 1000 ' 

40 FRINT : FRINT "Valor factorial"if 

50 END 

1000 4 = 1 

1010 IF x:1 THEN € = $Xx 2 x= «+1 : GOSUE 1010 


1020 RETURN 


SIMULACION 


Muchos procesos o sistemas, como por ejemplo las reacciones 
quimicas, modelos de población, colas, flujo del tráfico, 
batallas, circuitos electrónicos, etc. pueden ser examinados 
en un ordenador mediante la simulación de datos que son 
propensos a cambiar. Se requiere construir un modelo 
matemático que cubra las relacciones entre las variables y 
tenga en cuenta el efecto del tiempo y de sucesos externos. 
Algunos procesos tardan bastante tiempo en completarse, una 
simulación puede presentar el resultado en segundos . ÉS 
también más barato que un piloto en entrenamiento se 
estrelle con un simulador de vuelo que con un avión real. 


Los modelos matemáticos usados en simulación pueden 
implicar modelos extremadamente complicados que están muy 
alejados de los objetivos de este libro. Sin embargo, vamos 
a examinar un modelo simple que simula el crecimiento de la 
población. 


En el siglo trece, el matemático ¡italiano Leonardo 


Fibonacci, estudió la explosión demográfica de los conejos. 
Consideró el crecimiento de la población, empezando con solo 
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un par de conejos v asumió que tendrian un par de hijos 
justo un mes antes de que volvieran a: ser fértiles y se 
pudieran volver a reproducir. Asi pués, habria una nueva 
generación cada mes. Se asume que no hay muertes ni 
migraciones en el periodo en consideración. 


Analizando el problema, podemos ver que la población en el 
mes n seria « por lo que 


Pa z Pr1 + Pn-2 


EN 


ej. nueva =l0s que vivian +un par más por 

población el mes anterior cada uno de los 
y que todavia fértiles. ej. 
viven. estos Vivian 


hace un mes 


También sabemos que P,=1 y P2=1 

Los valores de se encuentran con el programa 16, la 
secuencia de números que se obtiene se conoce como la 
secuencia de Fibonacci. 


Programa 16: CONEJOS 
10 CLS : FRINT "SECUENCIA DE FIBONACI" : FRINT 


20 pl=1d3p=ld0m=- 2 

20 FRINT "Mes 1 :"¿p1;3"Conejo" 
40 FRINT "Mes 2 :"3p23"Conejo" 
SÓ p= pl + po: =m + 1 

60 FRINT "Mes"im3"2"3p53"Conejos" 
70 pl = p2 1 p2=p 

80 IF m:36 THEN 50 
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CAPITULO CINCO 
MAPA DE LA MEMORIA 
DEL AMSTRAD 


Hasta ahora hemos tratado de la memoria del Amstrad como de 
un componente "hardware" cuya función es la de almacenar 
todos los datos que hay en la ROM y en la RAM del sistema, 
descritos en el capitulo uno. La mejor forma de describir la 
estructura interna de la memoria del ordenador es imaginarla 
como una larga secuencia de cajas O celdas identificadas 
cada una con una etiqueta numérica única que comienza con 
cero y se va incrementando de uno en uno, como si fueran las 
taquillas de una estación. La etiqueta de cada celda de 
memoria se llama dirección. En cada caja o celda, se puede 
almacenar un número, que en el caso del Amstrad y de la 
mayoria de los ordenadores personales, está en el rango de 0 
a 2559. Además de números, es posible almacenar caracteres e 
instruciones de programa representados por sus valores 
numéricos; estos valores se conocen como código de carácter 
y cádigos de instrucción. Cuando nos referimos al tamaño de 
la memoria, se elige la abreviatura K que representa 1024(0 
2 elevado a la potencia 10) celdas de memoria. 


NUMEROS BINARIOS 


Veamos ahora la forma simple en que el Amstrad almacena los 
datos. La naturaleza de la electrónica restringe a los 
circuitos a estar conectados O desconectados y esto 
significa que el ordenador solo puede reconocer dos estados; 
estos estados se suelen escribir como *0* o ”*1*?. Asi como 
las palabras y sentencias se construyen usando más de una 
letra y los números constan de varios digitos, las expresio- 
nes de ordenador se representan por secuencias de *0* y ?*1”, 
A este tipo de modelo de *0* y ”?1* se le llama *números 
binarios”. 


Cuando se escriben los números en forma decimal o de base 
10, el digito de más a la derecha representa a las unidades, 
el de su izquierda las decenas (la base de nuestro sistema), 
el siguiente a su izquierda representa las centenas (el 
cuadrado de la base), y asi sucesivamente. Los números 
binarios usan como base el 2; el digito de más a la derecha 
da el número de' unidades, el de su izquierda da el número de 
doses (la base), el siguiente da el número de cuatros (el 
cuadrado de la base), el siguiente da el número de ochos (el 
cubo de la base) y asi sucesivamente. 
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Convencionalmente, el número 345 en sistema decimal es: 


3 4 5 decimal 
5x100=5x1 =5 
4x10'=4x10 =40 
3x 10? = 3 x 100 = 300 


345 decimal 
Del mismo modo el número binario 11001 equivale a: 


11001 binary 

1x2%=1x1 
0x2!1=0x2 
0x2?=0x4 
1x2=1x8 
1x2*=1x16=16 


[ 


oo 


25 decimal 


Cuando contamos en binario, pasa un *1”*” a la siguiente 
columma siempre el resultado pase de *1* ej. después del 0 
viene el 1, después del 1 viene el 10, después del 10 viene 
el 11, después del 11 viene el 100 y asi sucesivamente. Esta 
secuencia se puede ilustrar con la siguiente rutina, que usa 
la función BIN$ que convierte un argumento numérico dentro 
del rango -32768 a 65533 a una Cadena conteniendo su 
equivalente en forma binaria. 


10 CLS 

20 FOR x = 0 TO 255 

30 PRINT "Decimal"¿x3TAB(13)5 "Binario" BINS$(x) 
40 NEXT x 


Se puede ver que el sistema numérico binario trabaja con el 
mismo principio que el decimal, pero se requieren más digi- 
tos para representar un número en binario que en decimal. Si 
queremos usar números binarios en el Amstrad, debemos 
precederlos por %$X para distinguirlos de los decimales. 


Ahora es posible explicar porqué un número almacenado en 
una direción particular de la memoria del Amstrad debe estar 
en el rango 0 a 255. Esto es debido a que una celda de 
memoria contiene exactamente ocho digitos binarios; por lo 
que el rango desde 0000 0000(0 decimal) a 1111 1111(255 
decimal). Cuando nos referimos a números binarios, cada 
digito individual se llama bit y el grupo de ocho bits se 
llama octeto o byte. Los bits se suelen numerar del O al 7 
con el bit O en la posición menos significativa y el 7 en la 
más significativa (el bit 0 es el de más a la derecha y el 7 
el de más a la izquierda dentro del octeto). 
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bit 


7 6 1 9 
0 0 0 1 1 0 0 1 
128 64 32 16 8 4 


valor 
Figura 3.1 


Los números entre 0 y 253 que no sean enteros, se represen- 
tan combinando varios octetos. 


Debido a que las cadenas largas de *0” y *1* son dificiles 
de memorizar, resulta bastante complicado trabajar con 
ellas, se han desarrollado algunas notaciones más simples. 
Una de éstas usa un sistema numérico de base diez y seis y 
es conocido como sistema hexadecimal. Fara usarlo son 
necesarios 16 digitos pero, en vez de diseñar seis nuevos 
simbolos, se han usado las cinco primeras letras del 
alfabeto. Los 16 digitos son 0,1,2,3,4,5,6,7,9,9,A,B,C,D,E, 
F. Es importante no confundir los nuevos simbolos con las 
letras. Como ejemplo veamos el número hexadecimal 2FA: 


2 F A (hex) 
Ax16'=Ax1 =10(decimal)x1 =10 


Fx16!=Fx16 =15(decimal)x16 =240 
2x16?=2x256=2 (decimal) x 256 = 512 


762 (decimal) 


La función HEX$ devuelve el argumento en forma hexadecimal. 


10 CLS 
ZO FOR x = 0 TO 255 
30 PRINT "Decimal"px:¿TAB(173)5 "Hex. "¡ HEXS (xx) 
Ya que un octeto contiene ocho bits, su valor puede ser 
expresado con dos números hexadecimales; con algunas 


excepciones, el sistema hexadecimal es el que suele usarse 
en los ordenadores. 


7 6 5564 3 2 1 0 bit 


Al Amstrad se le pueden introducir directamente los números 
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hexadecimales precediendolos por %. ej. AB. 
MAPA DE LA MEMORIA 


La memoria del Amstrad está subdividida en varias secciones 
distintas, cada una de las cuales tiene un propósito 
especifico. La estructura visual de la memoria se da en un 
diagrama llamado mapa de memoria y se puede ver en la figura 


3.2. 


DIR. (HEX) RAM DIR. (HEX) 
FFFF FFFF 


ROM ALTA 


MEMORIA DE 


PANTALLA (solapable) 





C000 
Co00 PILA, FECHA Y 
BLOQUES SALTO 
B100 
DATOS FRIMARIOS 
ACOO 


DATOS SECUNDARIOS 





HIMEM — 


MEMORIA LIBRE 
(PROGRAMAS USUARIO, 
VARIABLES) 


? 
DATOS PRIMARIOS 


DATOS SECUNDARIOS 


Y 


00400 
AREA DEL ROM inferior 
> FIRMWARE” 





0000 0000 


FIGURA 5.2:MAPA DE MEMORIA DEL AMSTRAD 
El mapa de memoria es bastante complicado debido a que, 
aunque solo tiene 64K direccionables, el Amstrad tiene 64K 


de RAM y 32kK de ROM, además tiene previsto expansión de ROM 
hasta 25216K (cerca de 4 Mega octetos.” 
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Los 32kK de ROM estándar se dividen en dos partes de 1ék; 
los 16kK de superiores, direcciones CO00-FFFF contienen el 
intérprete de BASIC, y los 1ó6K inferiores direcciones 
0000-3FFF contienen el *firmware” del Amstrad que son las 
rutinas que controlan el *hardware” y otras que pueden ser 
llamadas por el código máquina del usuario. En la figura 3.2 
podemos ver que el intérprete de BASIC se solapa con una 
sección de RÁM que contiene la memoria de pantalla. Un 
componente electrónico llamado matriz de puertas se encarga 
de bascular entre la ROM y la RAM dependiendo de los 
requerimientos de acceso del *firmware”. El controlador de 
pantalla y la CPU están sincronizados de forma que nunca 
necesitan acceder a estas direcciones simultáneamente. 


Como ya hemos dicho, se pueden solapar hasta 252 ROMs de 
1l6x en las 16K superiores y se definen como primarios y 
secundarios (máximo 7 ROMS). Una ROM secundaria contiene 
programas simples (por ejemplo otros leguajes, sistemas 
operativos, aplicaciones de negocios, juegos) que se ejecu- 
tan uno de cada vez, mientras que las ROM primarias 
contienen rutinas (por ejemplo rutinas perifericas de 
expansión) que pueden ser llamadas por otros programas. 


Cuando conectamos el Amstrad, el *firmware” busca estas ROM 
de una en una (página por página) y ejecuta el arranque de 
la primera que encuentra. En un Amstrad sin expansiones, la 
primera (y única) ROM presente es la de BASIC que se obtiene 
al encender. El BASIC está en la página 1; si se tiene que 
obtener otros programas, como cartuchos de juegos, deben 
estar en la página 0. Cualquier ROM presente se puede 
seleccionar mediante la barra vertical ”i? seguida del 
nombre de la ROM. De este modo podemos pasar a la ROM del 
BASIC mediente el comando ¡BASIC. 


Por fortuna, el Amstrad tiene un BASIC excelente que 
raramente profundiza en la memoria. Sin embargo los 
programadores de código máquina necesitan conocer en detalle 
el mapa de memoria y la posición de las rutinas del 
"firmware”. El manual del Amstrad proporciona información 
detallada sobre este particular. Ya que puede variar la 
posición de estas rutinas si se cambia de ROM, al 1llamarlas 
desde un programa se supone que se quieren ejecutar en la 
ROM original. Para evitar este problema hay un bloque de 
bifurcacion en las posiciones BBO0O a BD39; el programa llama 
a la rutina a una dirección especifica del bloque de 
bifurcación que, a su vez, llama a la rutina requerida. Los 
cambios en la ROM deben ir acompañadas de los correspondien- 
tes en el bloque de bifurcación para que no afecte al 
programa del usuario. También es posible modificar el bloque 
de bifurcación para apuntar a sus propias rutinas alterando 
el efecto del ”*”firmware”- tenga en cuenta que los valores 
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devueltos en todos los registros deben ser compatibles con 
los del sistema original. 


El programa en BASIC junto con sus variables son almacena- 
dos en la memoria libre que se ve en la figura 3.2. La 
dirección más baja la determina el ”firmware? cuando se 
inicia el BASIC. La dirección más alta se loacaliza mediante 
el apuntador HIMEM al que se puede acceder directamente 
desde el BASIC mediante el comando HIMEM. Podemos engañar al 
Amstrad para que piense que que tiene menos memoria, Cam- 
biando este apuntador con el comando MEMORY, para que apunte 
a una direción inferior y dejar libre una sección de memoria 
para tener un sitio seguro para nuestros programas en código 
máquina, gráficos etc. 


Fara liberar 10 octetos del BASIC teclear el comando: 
MEMORY-10 


La función FRE(O) devuelve el número de octetos libres; 
intente ejecutar PRINT FRE(0) antes y después del comando 
anterior para comprobar que se han liberado los 10 octetos. 


Podemos leer y escribir directamente en la RÁM del Amstrad 
mediante los comandos PEEK y POKE. 


FOKFE A,V 
escribirá el valor Y en la direción A 
(V está restringido a enteros en el rango 0 a 2559) 


V=FEER. (A) 
asigna a la variable V el contenido de la dirección A. 
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CAPITULO SEIS 
TIEMPO, RELOJ 
E INTERRUPCIONES 


LA FACILIDAD DE TIEMPO 


El Amstrad tiene un contador interno que comienza a contar 
desde el momento en que el Amstrad es conectado. El contador 
se incrementa cada 1/300 de segundo y es súmamente preciso. 
Tenemos al posibilidad de añadir tiempos a nuestros 
programas mediante el uso de este contador, por ejemplo como 
reloj, despertador o movimientos de juegos dependientes de 
tiempo. También podemos medir la longitud de los procesos 
para comparar la eficiencia de los diferentes métodos de 
programación. 


Para acceder a este contador usamos el comando TIME y para 
conocer la longitud del tiempo en segundos necesitamos 
conocer los valores inicial y final de TIME y dividir la 
diferencia por 300. Por ejemplo, el programa 17 nos da una 
idea de la función TIME calculando la velocidad de sus 
reacciones. Tenga en cuenta que debemos restar 1/100 de 
segundo del tiempo calculado para quitar el tiempo de 
proceso - pruebe el programa eliminando la linea 120: 


PROGRAMA 17: REACCION 
10 CLS 


20 LOCATE 10,10 : FRINT "Fulse ENTER para 
empezar" 


30 IF INKEY(18) = -—1 THEN 30 
40 CLS 
50 FOR x = O TO 3FOOOXRND 


60. IF INKEY(47)<3-1 THEN CLS : FRINT "CHASCO!!" 
: END 
70 NEXT x 

80 LOCATE 10,10 : FRINT "Fulse ESFACIO! !" 

90 BORDER 7,16 

100 ti = TIME 

110 FRINT CHR$(7) 

120 1F INKEY (47) = -—1 THEN 120 

130 t2 = TIME 

140 BORDER 1 

150 LOCATE 8,13 : 

160 FRINT "Tiempo " ; ROUND ((t2-t1-3)/ 

300,2); "segundos" 

170 FOR x = O TO 3000 : NEXT x 

180 GOTO 10 


Es dificil de describir con precisión qué es lo que hace 
adictivo a un programa de ordenador, pero incluir una faci- 
lidad de "máxima puntuación obtenida? hace incrementar la 
adicción!'. Esto hace que los jugadores tiendan a conseguir 
“un punto más? para colocarse en lo alto de las listas. 


El programa 38 demuestra esta facilidad con un simple juego 
de tipo *aracade?. El jugador tiene que evadir un ataque de 
misiles moviendo a un hombrecito de izquierda a derecha bajo 
el control de la teclas del cursor. El objeto del juego es 
sobrevivir tanto tiempo como sea posible registrando el 
mejor tiempo conseguido. 


PROGRAMA 18: ATAQUE DE MISILES 


10 DEFINT p : DIM m(25) : RANDOMIZE TIME 

¿20 CLS : BORDER" 2+4RNDxX25 

ZO n= 20 3 t = 100 3 z21 = TIME 

40 p = 40XRND+1 

50 LOCATE pr25 3: FEN 1 

60 1 = mel a IF x:25 THEN x=1 

70 míx) = 2: v=0 

80 PRINT CARS (239) : PRINT 

90 IF m((x+3)MOD 25) = n+1 THEN 170 

100 IF INFEEY(8) <3-1 AND n:1 THEN n = nu1 1 v= 23 
110 IF INKEY (1) <:-1 AND ni238 THEN n = n+1 2 y = 








120 LOCATE n,1l : FEN 2 
130 PRINT SFACES(1) + CHR$(248+V) + SPACES$(1) 
140 FOR jj = 1 TOt : NEXT j 
150 IF t = 1 THEN t = t-1 
160 IF m((x+2) MOD 25) <% n+1 THEN 40 
170 22 = ROUND ((TIME-21)/300,2) 
180 FRINT CHR$ (7) 
190 LOCATE n+1,1 : FRINT CHR$(238) 
200 FOR y = 1 TO 300 3: NEXT j 
210 IF 22h OR h = O THEN h= 22 
220 CLS : FEN 2 
230 LOCATE 14,10 : FRINT adempo" ¡za 
240 LOCATE 14,12 : FRINT "Mayor";zh 
2590 LOCATE 14,15 : FRINT "Otra vez? S/N" 
260 IF INKEY(60)<3-1 THEN. ERASE m : GOTO 10 
270 IF INKEY(46)<3-1 THEN CLS : BORDER 1 : END 
280 GOTO 260 


INTERRUPCIONES 


En ordenadores es común el uso de interrupciones. Una 
interrupción ocure cuando, bajo ciertas condiciones, el 
ordenador para lo que está haciendo y ejécuta otro proceso y 
cuando se ha completado, vuelve. para completar la tarea 
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anterior. El manejo de interrupciones se escribe normalmente 
en código máquina; sin embargo el Amstrad tiene algunos 
comandos de BASIC, únicos, que pueden manejar las interrup- 
ciones de tiempo, esto es, se ejecuta una rutina cuando pasa 
un periodo de tiempo determinado y, cuando se ha completado, 
vuelve el control a la posición del programa donde ocurrió 
la interrupción. Se pueden usar dos. comandos, AFTER y EVERY; 
el primero prepara una interrupción para que ocurra después 
de un tiempo especificado mientras que el segundo prepara 
interrupciones para que ocurran regularmente con la 
trecuencia especificada. Hay cuatro temporizadores disponi- 
bles para estas interupciones y por lo tanto, se pueden usar 
hasta cuatro rutinas de interrupción. Cada temporizador 
tiene una prioridad - el temporizador 3 tiene la prioridad 
más alta y el O la más baja. Si ocurre una interrupción 
durante la ejecución de otra rutina de interrupción, se 
ejecutará instantáneamente si es de más alta: prioridad 0 
será encolada hasta la complexión del primero, si es de 
menor prioridad. Cuando se prepara una interrupción, el 
periodo debe especificarse en 1/50 de segundo seguido por el 
número del temporizador usado. 


AFTER 100,3 GOSUB 1000 — ejecuta la subrutina 
de la linea 100 úna 
vez cada dos segundo. 


EVERY 50 GOSUBE 1000 — ejecuta la subrutina de 
la linea 1000 cada segundo. 
Tenga en cuenta que, si 
no especifica número de 
temporizador, asume el O, 


Debe tener cuidado cuando use estos comandos ya que las 
subrutinas se pueden ejecutar en cualquier punto del 
programa. 


El siguiente ejemplo de interrupciones muestra un reloj en 
la parte superior izquierda de la pantalla que suena cada 
hora. Ya que el reloj; se procesa en una subrutina de 
interrupciones, puede incorporarse en sus propios programas. 
Se prepara una ventana $1 para mostrar el reloj por lo que 
su programa debe evitar este cauce. 


PROGRAMA 19:ESQUELETO DE RELOJ 


10 WINDOW +$1,1,9,1,1 : WINDOW $0,1,40,2,230 
20 CLG : FRINT "Introduzca tiempo:" : FRINT 
30 INFUT "Introduzca horas":;h 

40 IF hi0 OR h:23 THEN 20 

50 INFUT "Introduzca minutos";¿m 

60 IF míi0 OR m>59 THEN 20 
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70 INFUT "Fulse ENTER a la señal de tiempo";qs$ 
80 CLS 

90 EVERY 50 GOSUB 1000 

100 *continuación del programa 

110 GOTO 110 


1000 s = s+1 


1010 IF s:39 THEN s = s MOD 60 : m = m+1 

1020 IF m:59 THEN m = m MOD 60 2: h = h+1 : FRINT 
CHR$ (7) 

1030 IF. h:23 THEN h = h MOD 24 

1040 IF s MOD 2 = O THEN c$ = ":" ELSE c$ = 


SPACES (1) 

1050 LOCATE +$1,1,1 

1060 FRINT +1, USING "**!'"ihicé$; 
1070 FRINT $1, USING "HH'"imicóé; 
1080 FRINT +1, USING "Hk"is 

1090 RETURN 


Puede haber casos en los que sea importante que no ocurran 
interrupciones - se puede hacer inhibiendo las 
interrupciones con el comando DI y, cuando se quiera que se 
ejecuten de nuevo, se pueden habilitar con el comando El. 
Por dltimo, es posible conocer el tiempo que le queda a un 
temporizador determinado mediante la función REMAIN. 


Interrupción de BREAK 


La interrupción de BREAK tiene la prioridad más alta. 
[BREAK supone pulsar la tecla [ESC1 dos veces - pulsando 
[ESC] una vez, se para la ejecución temporalmente hasta que 
se pulse otra tecla. Sin embargo, [BREAK] devuelve control 
al modo comando, podemos dirigir la ejecución a una 
subrutina de [BREAKJ usando ON BREAK GOSUB. 


10 CLS 
20 ON BREAE GOSUBE 1000 
30 *continuación del programa 


1000 CLS 

1010 FPRINT "Quiere salvar los resultados”? -(s/n)" 
1020 IF INKEY (46)< 5-1 THEN END 

1070 IF INKEY(60) = —-1 THEN 1020 

1040 *salva resultados 


Un truco peligroso pero útil es poner una sentencia RETURN 
en la subrutina de BREAK que significa que el usuario no 
podrá hacer [BREAKJ del programa (excepto en una sentencia 
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INPUT). 
Las interrupciones de BREAK se pueden inhibir con: 


ON EREAK STOF 
Los comandos DI y El no afectan a las interrupciones de 
BREAK... 


TRAMPAS DE ERRORES 


Normalmente, cuando ocurre un error en nuestros programas 
BASIC, la ejecución se para y devuelve control al modo 
comando señalando que ha ocurrido un error. Sin embargo, el 
Amstrad tiene una potente facilidad para poner trampas a los 
errores. Esto significa que cuando ocurre el error, en vez 
de devolver el control al modo comando, toma control una 
rutina que puede rectificar el problema o dar al usuario más 
información sobre lo que ha sucedido. 


Fara preparar una trampa de error usamos la sentencia ON 
ERROR GOTO seguido por el número de la linea a la que se 
tiene que transferir el control. 


ON ERROR GOTO 1000 


La trampa de error se puede inhibir especificando un número 
de linea 0. 


ON ERROR GOTO O 


Hay dos funciones que nos dan información adicional de los 
errores, ERL que devuelve el número de la linea de la 
sentencia donde ha ocurrido el error y ERF que es el número 
del error (ver el apéndice D). 


FRINT "Error"¡ERR¡¿" ocurrido en linea"; ERL 

En este punto remitimos al lector al capitulo 3 donde se 
crea una ventana para mensajes de error en la que se muestra 
una linea al pie de la pantalla y suena un beep para que el 
usuario pulse una tecla para continuar - una trampa ¡deal 
para errores. 


Una vez que se ha entrado en una trampa de error, podemos 
usar el comando RESUME para continuar la ejecución del 
programa en la linea en que ocurrió el error, la linea 
siguiente o uná linea especifica. 


RESUME continúa en la linea ERL 


RESUME NEXT continúa el la linea siguiente a ERL 
RESUME 500 continúa en la linea 500 
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For último, es posible programar errores de usuario con el 
comando ERROR seguido de un número de error 


que no debe 
estar en el rango de los del BASIC. Asi como los errores de 


pragrama son interceptados por el intérprete BASIC, los 
datos inválidos pueden 


serlo por el programa de forma 
similar. 
100 INFUT " Introduzca número de cuenta": aNt 
110 


IF LEN(an$)<37 THEN ERROR 100 
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CAPITULO SIETE 
ESTRUCTURAS DE DATOS 


Vamos a hechar una ojeada al tema de las estructuras de 
datos que nos va a suponer manejar eficientemente grupos de 
datos similares. Fara empezar refrescaremos nuestra memoria 
con las matrices. 


MATRICES - ESTRUCTRAS ESTATICAS DE DATOS 


Frecuentemente necesitamos reservar un bloque de celdas de 
memoria del Amstrad para que puedan ser referenciadas con un 
nombre simple (referido al bloque) y un número(referido a 
una celda particular dentro del bloque); este tipo de 
estructura se llama matriz. Para reservar bloques de una 
longitud determinada se usa la sentencia DIMension. 


DIM. x (15) instruye al ordenador para que reserve una 
matriz llamada *x” de diez y seis elementos. 





o fr f2fsfelsfol7fslofiojwfi fi ]10 [15] 


Fig 7.1 


Cada celda puede almacenar un número. Cuando se declara un 
bloque, cada celda se inicia con cero. Fodemos referirnos a 
cualquier celda mediante el nombre de la variable seguido 
del número de la celda entre paréntesis. Por ejemplo, la 
celda 53 es referida como x(5). Al término entre paréntesis 
se le conoce como subindice. Se puede referenciar la misma 
celda con una variable en el lugar del subiíndice, por 
ejemplo x(a), a la variable a se le ha dado el valor S. Los 
subindices pueden ser también expresiones variables, pero 
sus resultados deben estar en el rango especificado por la 
sentencia DIM. Si hacemos referencia a una cadena que no ha 
sido DIiMensionada, asume que tiene once elemetos de 
longitud. 


También es posible preparar matrices con más de un 
subindice: 





DIM y (3,4) 
1,1) (1,2) (1,3) (1,4) 
2,1) (22) . (23) (Q4)| y 
30) (32 (63) 64) 
Fig 7.2 


79 


A este tipo de estructura se le llama matriz bidimensional; 
recuerde que las celdas se almacenan fisicamente en forma 
secuencial dentro de la memoria. La misma ¡dea es válida 
para matrices de n dimensiones. Si la variable de la matriz 
va seguida por los signos % oO $ las variables son de 
enteros o cadena respectivamente. 


El programa 20 demuestra las matrices simulando una 
competición de fútbol consistente en seis encuentros con 64 
clubs en competición. Cada club es almacenado en una 
sentencia DATA junto con el valor que representa la calidad 
del equipo. Si no aparece en la lista su club favorito, 
cambielo por cualquier otro. Usaremos una matriz r(7,64) 
para almacenar los números de los equipos que queden a cada 
vuelta. Los contendientes son elegidos de forma aleatoria; 
cuando un club ha sido seleccionado, su número de club en la 
matriz es negado para que no sea seleccionado de nuevo. El 
número de goles depende del valor del equipo y de la ventaja 
de jugar en casa. Si se empata un partido, la repetición se 
efectúa en el campo del visitante - las semifinales y la 
final se juegan en campos neutrales. A divertirse!!. 


PROGRAMA 20: COPA DEL REY 


10 RANDOMIZE TIME 

20 CLS : FEN 1 

ZO-FRINT "COFA DEL REY" ¿ FRINT "===========" 
40 FRINT "Ganará su equipo la Copa del Rey?" 

50 FRINT "Compruebelo viendo la competición” 

60 FRINT : FRINT "Las semifinales y la final se 
¿jugarán en campos neutrales" : FRINT 

70 PRINT "Fulse ENTER para continuar" 


80 IF INKEY(18) = —1 THEN 80 
90 CLS : FEN 2 

100 CLEAR 

110 DIM t$(64),r (7,64),g (64) 
120 FOR x« = 1 TO 64 

130 READ ais 0 

140 r(1,x) 

150 NEXT. Xx 

160 FOR y = 1 TO 6 

170 FEN 1 : FRINT "Vuelta";sy 


180 IF y = 5 EN FRINT "Semi-"3 2 IF y:5 THEN 
FRINT "Final" 

190 En 2 

200 27 (7-y) 

210 FOR x= 1 TO n/2 


220 di = INT(1+RNDKN) 
230 IF rty,di)20 THEN 220 
240 rtyrdi) = -r(y,d1) 
250 d2 2 INT(1+RNDAN) 
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IF rs d2):0 THEN 250 

r(y,d2) = —=r(y,d2) 

dih = INT(RNDXg (d1)XRNDx (3+(y4))) 

dia = INT(RNDXg (42) XRNDX2) 

FRINT t$(t-r (y ,d1));¡TAB(13);d1h:TAB(18);t$ (-— 

riyidz JE TAB (30) 5d2a 

IF dihisd2a THEN 2350 

FEN 3 : FRINT "Repetir" : FEN 2 

t=dl:36 dl = d2 1 de = t 

GOTO 290 

IF dih:día THEN r (y+1,x) = —-r (y, dl) 

IF dihidia THEN r(y+1,x) = —+ (y,d2) 

FRINT 

FOR 2 = 1 TO 500 : NEXT z 

NEXT x 

NEXT y 

FEN 1 

FRINT "CAMFEONES";t$(r(7,1)) : FRINT 

FRINT "Fulse SFACE para jugar de nuevo" 

IF INKEY (47) = -—1 THEN 440 

GOTO 10 

a "R Madrid",6,"At Madrid",6, "Barcelona" 
"RR Sociedad",ó6 ¿ 

Bata "At Bilbao",5, "Español",4, "Betis",Z, 

"Sevilla",z3 

DATA "R Murcia",2,"Rácing",2,"Elche",l, 

"Hércules", 1 

DATA "Málaga",2, "Osasuna", 2, "Spórting"”,1l 

"Valencia", z3 

DATA "Valladolid", 1,"Zlaragoza",2,"A Madrile 

ño",1, "Barcelona Ana 

DATA "Bilbao A",2,"Cádiz",1,"Calvo Sotelo" 

1,"Cartagena",2 

DATA "Castellón", 3,"Castilla",Z, "Celta", 3, 

"Granada", 2 

DATA "Las Falmas",7, "Logroñes",2, "Lorca", 2, 

"Mallorca",4 

DATA "Oviedo". 3, 

sa "Salamanca",3 

DATA "Tenerife", Zi, "Deportivo",2,"Rayo V",4, 

"Alcala", 

DATA "Talavera",2,"Torrejón",2,"Fegaso",Z, 

"Manchego", 3 

DATA "Carabanchel",4,"Aranjuez",Z2, "Tarancón 

"1,3, "Daimiel",3 

DATA "A Finto", 2, "Valdepeñas", 3, "Alcobendas 

A Fernando",2 

DATA, "Segoviana",z 

a "Leganés”,2 

DATA "Alcorcón", 4, "Conquense", 2, "Moscardó", 

3, "R Avila", 


ms 


"Recreativo H",2, "Sabadell" 


"Getafe", 4, "Ciempozuelos 
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DATA "Melilla",4,"Cebreros",Z,"El Tiemblo", 
2,"C D Hoyo", 2 


y Oocasiomes, sin embargo, en las que se requiere uy 

tema más flexible de ordenar datos. Vamos a vel 

erentes métodos que se pueden titular en general "estru 

as dinámicas de datos". Aunque muchas de estas técnicas 

den ser manejadas más eficientemente por otros lenguajes 
ejemplo el ALGOL o el Fascal, se pueden aplicar al BASI 
Amstrad. 


RUCTURAS DINAMICAS DE DATOS 


mo ejemplo de lo que son las estructuras dinámicas di 
os, consideremos la siguiente tabla que contiene um 
ta de pedidos de clientes de un vendedor de coches. Todo 
registros están ordenados por el nombre del cliente com 
la figura 7.3 que permite referirse 

ilmente a la información 

un cliente en particular. Supongamos que se ha de 

dir el cliente HERMOSO a la lista. 


a A e ms 


ERE INICIAL MODELO COLOR FECHA FEDIDO 
ECOA M 240DL Verde 04.05.85 

GO 6 O60GLE Flata 30.06.83 
ENEZ R FZóÓ6O0GLT Rojo 23.05.85 
MIDA V 24061 Elanco 25.05.85 
NAIZ J Z60GLS Azul 17.06.85 
ERO D 260GLE Negro 19.06.83 

GA M 340DL Rojo 17.06.85 
EMOSO M 3406L Flata 20.06.85 
IAE 


ra que la tabla permanezca en orden, el nuevo  registr 
e ser colocado entre HERMIDA y HERNAIZ. Si tuvieramos dl 
hivo en tarjetas de oficina, cualquier nuevo registro u 
ria añadir intercalando la nueva +ficha en la  posicih 
opiada. Del mismo modo, cuando el pedido del cliente hi 
o servido, el registro correspondiente debe ser -borrad 
sistema retirando la ficha. 


o 





Niestro problema consiste en simular este sistema donde 
pdemos añadir O borrar registros ya reusando el espacio 
vicante, mantener un mínimo de memoria ocupada. La estructu- 
fa que se debe Usar para este tipo de aplicación se llama 
lista encadenada. Cuando se usan listas encadenadas para 
pequeñas cantidades de datos, la ventaja de la flexibilidad 
qeda anulada por la desventaja de la complejidad. Sin 
embargo, es atil aprender las técnicas para poder manejar 
luego estructuras más complicadas. 


LISTAS ENCADENADAS HACIA ADELANTE 


A diferencia de las estructuras de datos estáticas, el 
eden de la lista encadenada se mantiene junto con los 
datos. Cada elemento en la estructura contiene dos tipos de 
iformación; el primero son los datos y el segundo es un 
puntador que lo relacciona con otro elemento. Los datos 
pueden contener varios Campos, ej. nombre, dirección, número 
de teléfono, etc; pero para simplificar nuestras 
aplicaciones consideraremos que contienen un campo de datos 
simple. 


ELEMENTO 1 ELEMENTO 2 ELEMENTO 3 ELEMENTO 4 ELEMENTO 5 


lolo 


fig.7. 5 (NULO) 





Ya que el elemento 1 está encadenado al elemento 2, el 
puntador del primero tendrá el valor 2; de modo similar, 
los apuntadores 2, 3 y 4 tendrán los valores 2, 4 y SS 
respectivamente. Como el elemento 5 es el último de la 
lista, su apuntador es “nulo” y puede ser indicado mediante 
invalor negativo, digamos —1. + 


tro método podria ser colocar como apuntador la dirección 
ela memoria donde se encuentra el siguiente elemento. Esta 


es una forma de *direccionamiento indirecto” que no necesi- 
timos revisar. 


la estructura que se muestra en la figura 7.5 puede ser 
imicenada en el Amstrad mediante una matriz bidimensional, 
dnde «$(e, 1) contendrá los datos del elemento e y x+*(e,2) 
ontendrá un apuntador al siguiente elemento. Se puede usar 
invariable ROOT para apuntar al primer elemento ej. 


ROOT = 1 

x$(1.1) = "data 1" $1, 2) = "2" 

«$(2.1) = "data 2" $(2,2) = "3" 

x$(3,1) = "data 2" x$(3,2) = "4" 

*$(4,1) = "data 4" x$(4,2) = "3" 

x$(5,1) = "data 3" x$(5,2) = "-1i" 


Para obtener los datos accedemos a todos los elementos de 
la lista; esto se hace empezando por el que apunta la varia- 
ble ROOT y moviéndonos a lo largo de la estructura, acedien- 
do a cada dato, hasta que legamos al apuntador nulo. 


Un dato puede ser borrado fácilmente de la lista encadenada 
cambieando el apuntador del elemento anterior para que 
apunte al siguiente. El apuntador del elemento que ha sido 
borrado debe ser cambiado a un valor que nos indique que 
está vacio - esto se hace para poder reusar el elemento de 
la matriz. 


Fig 7.6 


Si queremos insertar un elemento dentro de nuestra lista, 
hay dos etapas que cubrir; primero, debemos localizar el 
lugar de la lista donde debe ser insertado el nuevo 
elemento, y segundo, reconstruir los apuntadores para 
incluir los nuevos datos. La posición donde se coloca el 
nuevo elemento depende del usuario; puede ser colocado 
inmediatamente detrás del dltimo o, si la lista es ordenada, 
en la posición correcta como en nuestro ejemplo: 


a a 


Fig.7.7 
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Frimero debemos cambiar el apuntador del elemento 6 para 
que apunte al elemento 4 y después el apuntador del elemento 
Z para que apunte al elemento 6: 





x$(6,1) = "dato 6" 
X$(6,2) = "4" 
x6(3,2) = "6" 


Veamos ahora algunas rutinas para manejar las listas 
encadenadas; tenga en cuenta que se debe hacer un proceso 
diferente para tratar el principio y el final de la lista. 


PROGRAMA 21:LISTA ENCADENADA 


10 CLS 

20 nulo = -1 

ZO n= 100 : DIM x$(n,2) : GOSUB 1000 
40 CLS 


50 LOCATE 10,10 
60 LOCATE 10,12 
70 LOCATE 10,123 
80 LOCATE 10,14 
90 LOCATE 10,15 
100 $ = INKEYS$ : 
110 k = ASC(k$)-48 
120 IF kx1 OR k:4 THEN 100 

1730 ON k GOSUB 1000, 2000, 3000, 4000 
140 GOTO 40 


FRINT "LISTA ENCADENADA" 
PRINT "1...Iniciar" 
FRINT "2...Listar" 

FRINT "3...Borrar dato" 
FRINT "4...Añnadir dato" 
IF $ = "" THEN 100 


1000 root = nulo 

1010 FOR x = 1 TO n 

1020 x$(x,2) = "" 

10730 NEXT x 

1040 LOCATE 10,17 2: FRINT. "Iniciación 
Completa" 

1050 FOR j¿¡ = 1 TO 500 : NEXT j 

1060 RETURN 


8s 


2000 CLS 

2010 p = root 

2020 WHILE p<í2nulo 

2030 FRINT x$(p,1) 

2040 p = VAL (x$(p,2)) 

20590 WEND 

2060 PRINT : FRINT "Fin de la lista" 
2070 IF INKEY$ = "" THEN 2070 

2080 RETURN 


3000 CLS 

3010 LOCATE 1,10 

3020 PRINT “Introduzca número dato a borrar"; 
INFUT de 


ZOZO IF d$ = "" THEN 3000 
2040 IF root = nulo THEN 3120 
ZOSO p = root 


3060 IF x$(p,1) = d$ THEN root = VAL (x*$(p,2)) 3 
x$(p,2) "" 3 GOTO 23100 
3070 pp pi.p= VAL(x$(p,2)) : 1F p = nulo THEN 
3120 : : 
3080 IF x$(p,1)<:d% THEN 3070 
3090 xB(ppa2) = x$(p,2) 3 x$(p,2) = "" 
3100 FRINT "Datos borrados" 
3110 GOTO 31230 
3120 PRINT "Datos inexistenetes" 
2130 FOR ¿ = 1 TO 500 2: NEXT j 
3140 RETURN 


4000 CLS 

4010 LOCATE 1,10 

4020 FRINT "Introduzca datos a insertar" : 
INFUT d$ 

4030 FOR x = 1 TO mn 

4040 IF x$(x,2) = "" THEN p = x 2: GOTO 4070 
4050 NEXT x 
4060 STOF 
4070 x$(p,1) d$ 

4080 IF root = nulo THEN x$(p,2) = STR$(root) : 
root =p : GOTO 4150 

4090 IF d$ix$(root,1) THEN x$(p,2) = STR$(root) 


¿/root = p : GOTO 4150 

4100 q = root . 

4110 0q =q : q = VAL (x$ (q,2)) 

4120 E q = nulo THEN x$(qq,2) = STR$(p) : 
x$(p,2) = STR$(nulo) : GOTO 4150 

41:30 Le x$(pr1)x$(q,1) THEN 4110 

4140 x$(qq,2) = STR$(p) : x$(p,2) = STR$(g) 
4150 FRINT "Insertado" : 

4160 FOR j = 1 TO 500 : NEXT j 


4170 RETURN 
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LISTAS MAS AVANZADAS 


Aunque la mayoria de las aplicaciones pueden manejarse con 
listas encadenadas, hay algunas mejoras que aumentan la 
potencia de las estructuras que acabamos de ver. 


LISTA CIRCULAR 


En una lista circular o anillo, el aáltimo elemento apunta 
al primero. La principal ventaja de este tipo de estructura 
es que se puede acceder a un elemento que precede al 
identificado sin tener que rearrancar desde ROOT. 





Fig.7.9 
LISTAS CON DOBLE ENCADENAMIENTO 


Se le puede añadir aún más potencia si incluimos un apunta- 
dor hacia atrás que encadene cada elemento a su predecesor. 


J frdls Faals Fe fol 


Fig.7.10 





Esto permite la búsqueda en cualquier dirección. Usando más 
de un apuntador es posible ordenar la lista en más de un 
tipo de orden. 


En pequeñas aplicaciones la ventaja de este tipo de 


estructura queda compensada por el aumento de la memoria 
requerida para los apuntadores adicionales. 


PILAS Y COLAS 


Hay dos estructuras lineales de suma utilidad en 
ordenadores, se llaman pilas y colas. 


Una pila es un método para almacenar y recoger datos que se 


basa en el principio "dltimo en llegar primero en salir". El 
almacenar información se llama pushipg y recogerla es poping 
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En nuestro ejemplo, el elemento en lo alto de la estructura 
es apuntado por la variable TOF. 


0 on o 
o e 

TOP 
PUSH B PUSH C pra 
(| (mm 1] 


| em] 
: POP STACK  POPSTACK POP STACK 
Fig.7.11 OBTAIND  OBTAINB OBTAIN A 





El sistema operativo usa este tipo de estructuras cuando 
usa las subrutinas. Cuando se ejecuta un GOSUB, los números 
de posición de la linea y la sentencia son colocados en la 
pila y se pasa control a la linea especificada por la 
sentencia. Cuando se ejecuta el RETURN, el proceso continúa 
desde la posición en que se encontraba gracias a los datos 
almacenados en la pila. Esta técnica permite anidar 
subrutinas en varios niveles. Si se ejecuta un RETURN sin su 
correspondiente sentencia GOSUB se encuentra con la pila 
vacia y ocurre un error. 


Una estructura de colas se basa en el concepto de que el 
primero almacenado es el primero en salir. Se requieren dos 
apuntadores, HEAD y TAIL que apuntan al primero y al último 
elemento de la estructura. 


Una estructura de colas es la que se usa en la memoria 
intermedia del teclado donde se almacenan las teclas que se 
han pulsado. Como es una cola, se accede antes a la primera 
tecla pulsada. Cualquier espacio que se quede libre queda 
disponible para otra tecla. 


HEAD TAIL 


Fig.7.12 


Cuando se recoge un dato, HEAD debe apuntar al siguiente 
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eiemento de la estructura. ej. el elemento al que apunta el 
que se está obteniendo. 


EEE 


Fig.7.13 


Cuando se añade un dato, se hace que apunten a el TAIL y el 
último elemento. 


Lee ep le ep lo) 
qee, 


HEAD 


Ta ——Y+ 


Fig.7.14 


El problema es que la cola va llenando la memoria gradual- 
mente a medida que se introducen y se recogen datos. Una 
solución es usar la lista circular de forma que, si se llena 
la memoria con la estructura, los datos puedan ser añadidos 
al principio. Si TAIL llega a HEAD, entonces nos hemos 
quedado sin espacio. 


GRAFICOS 


Aunque los conceptos de las listas encadenadas son muy 
útiles, su uso está limitado seriamente, ya que solo pueden 
funcionar en una dimensión, ya sea hacia adelante OU hacia 
atrás. Fara usar estas técnicas con ideas prácticas 
necesitamos poder manejar estructuras en más de una 
dimensión; este tipo de estrucuras se conoce como gráfico. 


Consideremos el siguiente ejemplo que representa las rutas 
aéreas de cierta compañia de aviación. 
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LONDON 





AMSTERDAM 
% BERLIN 
PARIS 
% BONN 
Fig.7.15 


Esto se puede representar por la siguiente estructura. 





[ran fofofo| | di 


Fig.7.16 [eos fo[oJo[] 


Se pueden incluir datos adicionales que, por ejemplo, 
pueden darnos el costo, las distancias, etc. entre dos 
ciudades. 


Cuando referenciamos gráficos; los puntos de intersección 
se llaman ramales los encadenamientos que unen los ramales 
se llaman bordes. Los bordes pueden ser directos o indirec- 
tos y pueden contener o no un valor (por ejemplo, en el 
nuestro, distancia, costo etc.) Los gráficos tienen multitud 
de aplicaciones - como ejemplo podemos intentar localizar el 
camino mas corto entre dos nodos, ej. refiriendonos a la 
figura 7.15, cual es el camino más corto entre Londres y 
Berlin?. 


El algoritmo que vamos a usar localiza el camino más corto 
entre un par de nodos y puede imprimir la ruta óptima. 


El gráfico de n nodos se puede representar e el ordenador 
por una matriz de n x n elementos, donde el elemento x(s,d) 
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será la distancia desde la ciudad de partida s hasta la de 
destino d. 





O A e 
1/0 8 o o 7 
28 0 15 9 10 10 
3 = 150 10m 5 
4l| o «o 10 0 10 7 
sÍ7 10 % 10 0 o 
6 No 105 7 «w 0 
Fig.7.17 


Cualquier par de ciudades que no tengan conexión directa 
toman un valor de distancia de infinito - en el Amstrad lo 
tenemos que hacer con un valor muy largo, como 1E+20. 


El procedimiento para calcular la ruta más corte es: 

La distancia de cada ruta se considera separadamente con la 
de la misma ruta pero llendo a través de otra ciudadísi es 
posible). ej. la distancia 1 - 6 se compara con las distan- 
cias 1-2-5, 1-3-6, 1-4-6 y 1-5-6, y el valor más corto se 
coloca dentro de nuestra matriz en el elemento x(1,6). 


Se conserva una matriz separada para recordar la ruta más 
corta. 


El programa 22 nos permite introducir un gráfico, ramal a 
borde mediante el número de la ciudad de origen, un número 
de ciudad de destino y uma distancia. Cuando haya 
introducido toda la información, introduzca un grupo de 
datos inválidos como 0,0,0. El programa empezará a calcular 
las distancias más cortas entre cada par de ciudades. Luego, 
especificando dos números de ciudad, el programa nos 
mostrará la ruta más corta y su distancia. Fulse la barra de 
espaciado para introducir otro par de claves para comenzar 
de nuevo. 


PROGRAMA 22:RUTAS MAS CORTAS 


10 CLS : CLEAR 

20 ON ERROR GOTO 10 

ZO INFUT "Introduzca el número máximo de 
ciudades":n 

40 DIM x (man), y (n,n) 

50 CLS 

60 FOR p = 1 TO m : FOR q = 1 TO mn 

70 IF pizq THEN x(p.q) = 1E+20 

80 NEXT q : NEXT p 

90 FRINT "Introduzca ciudad s, ciudad d, distancia" 


91 


100 INFUT s,d,v 

110 IF s = d OR s:i1 OR sn OR dí1 OR don THEN 130 
120 x(sjd) = vw 3 x(d,5) =v 3: y(d,s) = s : y(s,d) 
= d : GOTO 100 

130 print "Espere un momento por favor" 

140 FOR p 1TOn 

150 FOR q 1TOHn 

160 FOR r 1 TON 

170 d = x(q4p) + x(p,r) 

180 IF x(qur) ¿<= d THEN 200 

190 x(qur) = d : y(qu.r) = y(q.,p) 

200 NEXT r : NEXT q : NEXT p 

210 CLS- 

220 FRINT "Costo menor entre dos ciudades” 
2230 FRINT O: FRINT "Introduzca dos ciudades" 
240 INFUT s,.d 

250 IF s:i1 OR s:m OR díi1 OR d:n THEN 240 
260 IF x(s,d) = 1E+20 OR x(s,d) = O THEN 
FRINT "No hay conexión" : GOTO 280 

270 FRINT 

280 FRINT "El coste desde":si "a" idi "es"; 
x(s,d) 

290 FRINT : FRINT "Via" : PRINT 

300 IF y(s,d):3d THEN 340 

210 FRINT "Directo" 

320 GOTO 380 

220 FRINT "Fasando por"; 

340 IF y(s,d) = d THEN 2380 

350 FRINT y(s,d); 

360 s = y(s.d) 

2370 GOTO 240 

380 FRINT : FRINT : FRINT "Fulse SFACE para 
continuar" 

390 $ = INKEYS 

400 IF Kk$ = "s" OR k$ = "S" THEN 10 

410 IF k$ = SFACE$(1) THEN 210 

420 GOTO 2390 


Duo! 


ARBOLES 


Hay un tipo especial de gráfico que se usa comunmente en 
ordenadores llamado árbol. Un árbol es un gráfico que no 
contiene nodos ni ciclos, esto es, solo hay una ruta” para ir 
de un modo a otro. Normalmente conocemos árboles en los que 
los nodos salen directamente de un nodo especifico llamado 
ROOT (raiz); cada nodo, excepto la raiz, tiene un solo ramal 
entrando en él. 


rooTr —Y» NIVEL 1 


NIVEL 2 

NIVEL 3 

NIVEL 4 
Fig.7.18 
Los nodos que salen de la raiz forman el nivel 


1. El nivel máximo lo da la longitud del árbol. Normalmente, 
al nodo que precede a otro se le llama nodo padre y al 
descendente, hijo. 


Fara no complicar demasiado las cosas vamos a restringirnos 
a árboles binarios: los que tienen un máximo de dos ramales 
saliendo de cada nodo. 


Los árboles binarios pueden almacenarse en el Amstrad 
usando matrices de forma similar a las listas encadenadas, 
excepto que en el árbol se requieren tres campos; uno para 
los datos y.los otros dos para los apuntadores. 


Como en los anteriores, necesitamos que se preparen los 
datos en algún orden lógico. Por ejemplo, veamos como se 
podrian almacenar una secuencia de marcas de coches en forma 
alfabética. 


Fig.7.19 


MERCEDES, FERRARI, FORSCHE, LOTUS, VOLVO, BMW, SAAB 
Comenzamos con el primer mombre, MERCEDES, como raiz de 


nuestro árbol, y en este momento el nodo no tiene 
descendientes. 


ROOT 


y 
AA 


Fig.7.20 


A continuación introducimos FERRARI y como precede a 
MERCEDES alfabéticamente lo conectaremos a la izquierda. 


ROOT 


PUE A 


El siguiente es PORSCHE que sigue a mercedes y por lo tanto 
lo pondremos como descendiente a la derecha. 





Fig.7.22 
Después de analizar toda la informació y colocarla 
alfabéticamente, el arbol se verá así. 


ROOT 
y 








Fig.7.23 


Con el BASIC del Amstrad podemos usar la matriz n$ para 
alma.enar los datos, e *i” y *d” para almacenar los apunta- 
dores de la izquierda y de la derecha. Otro datos como los 
detalles técnicos sobre los coches, pueden ser añadidos a la 
estructura almacenandolos en matrices y usando los subindi- 
ces correspondientes. 


1 n$(1)="MERCEDES"  1(1)= 2 r(id= 2 
2 n$(2)="FERRARI" 1(2)= 6 ríiz2= 4 
Z=  n$(3)="PORSCHE" 1 (3) =-1 rií= y 
4  n$(4)="LOTUS" 1 (4)=-1 r(4)=-1 
S n$(5)="VOLVO" 1(3)= 7 r(S)=-1 
6 n$(6)="EMW" 1 (6)=-1 r (6) =-1 
7 n$(7)="SAAR" 1(7)=-1 r(7)=-1 


0 
h 


La siquiente tarea es conseguir seleccionar un nombre y 
pedir todos los datos asociados a él. Una vez introducido el 
nombre, el programa busca por el árbol empezando en ROOT y 
siguiendo a derecha o izquierda dependiendo del orden alfa- 
bético del nombre introducido y del 'que aparece en cada 
nodo.Si se llega a un apuntador nulo antes de haber 
localizado el nombre, quiere decir que no existe en el 
árbol. Este método de búsqueda es una forma de lo que se 
llama separación binaria y puede sar muy rápido, aún con 
grandes cantidades de datos. For ejemplo, mediante siete 
comparaciones podemos liegar al nivel 8 de un árbol que 


nee 


significa que hemos buscado a través de 259 elementos. 


Fara sacar todos los elementos del árbol en el orden 
establecido, requerimos un método sistemático para recorrer 
cada noya siguiendo primerc las ramas de su izquierda y 
después las de su derecha. 


Si consideramos un nodo cualg:iera del Arbol, suponiendo 
que sus apuntacores no son nulos, está encadenado a dos sub- 
árboles. Del mismo modo, todos los nodos de cada uno de 


estos subárboles está unido a otro subárbol. De esta forma, 
cada subárbol binario se puede abreviar a: 


Te] 
Subarbol Subárbol 
izauler.] - derecho 


Fig.7.24 


El desplazarse a cada uno de los componentes del Arbol en 
un orden fijo se llama trensversal. 


Hay tres transversales que se pueden recorrer. 


1)Subárbol Izq. 1) Subárbol Izq. 1) Nodo 

2) Nodo ó 2) Subárbol Der. 05 2) Subárbol Izq. 

3)Subárbol Der. 3) Nodo 3) Subárbol Der. 
(IND) (IDN) (NID) 


Los transversales que usen posteriormente el mismo orden 
deben hacerse en cada subárbol. Si usamos el orden IND, 
podemos obtener nuestros datos en el orden en que se ha 
preparado la estructura. 


Consideremos el siguiente árbol con el transversal IND: 
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Fig.7.25 


Nuestro orden será L1,100,R1 

Subárbol Li puede usar el transversal IND para tener 
L2,50,59 

y L2 puede usar el IND para coger 10,25,27. 

For lo tanto nuestro orden será 10,25,27,50,59,10,R1. 

Cuando usemos el transversal IND en Ri habremos accedido a 
todo el árbol por orden. 


En el capítulo 3, cuando estudiemos los métodos de clasifi- 
car datos, veremos como clasificar una secuencia de números 
creando un árbol binario y usando luego el transversal IND. 
Fuede echar una ojeada el capitulo 8 ahora que tiene el tema 
fresco en la mente. 


PROGRAMACION HEURISTICA 


Por el momento ya debe tener una idea de la flexibilidad 
que pueden proporcionar las estructuras dinámicas de datos. 
Los árboles son la forma más común que se encuentra en los 
ordenadores y se usan en una gran variedad de programas. 
Muchos juegos se pueden estudiar mediante el uso de árboles, 
donde las diferentes ramas proporcionan las opciones 
disponibles; por medio de algunos algoritmos optimizados, el 
ordenador puede examinar todos los estados posibles que 
pueden ocurrir para cualquier posible movimiento y los 
siguientes. 


Una idea similar se usa cuando un programa aprende de: las 
operaciones anteriores y recuerda qué resultados ocurren 
para ciertos movimientos, por medio de un árbol. El programa 
comienza con un adrbol consistente en un simple nodo, el 
ROOT, y en ese momento no sabe mada; con el tiempo el árbol 
se irá expandiendo e irá haciendose "inteligente". Los 
programas que aprenden con la experiencia se llaman 
heuristicos. 
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En el programa 23 hacemos una demostración de programación 
heuristica, que empieza con un número pequeño de animales en 
su memoria. Le dirá que piense en un animal e intentará adi- 
vinarlo mediante una serie de preguntas a las que tiene que 
responder *si” o "no*". Si el ordenador mo es Capaz: de 
adivinar el animal, le hará preguntas cuyas respuestas le 
puedan servir en el futuro. 


El programa construye un árbol binario con los animales 
almacenados en los nodos inferiores y las preguntas en otros 
nodos. Mediante las preguntas y analizando las respuetas, el 
programa puede decidir en qué sentido se debe desplazar por 
el árbol. Cuando se encuentra un animal, el ordenador 
pregunta si es correcto; si no lo es, hace una pregunta para 
distinguir entre el animal del árbol y el elegido por 
nosotros. 


PROGRAMA 23: ANIMALES 


10 GOSUB 2380 

ZO CLS 3: FRINT "ANIMALES" : FRINT 

0 FRINT "Fiensa un animal" : FRINT 

40 FOR ii = 1 TO 2500 3: NEXT 3 

S0 FRINT "Responde S/N a las preguntas" 


60 p = 1 

70 1F 1(p) = 0 AND r(p) = O THEN 140 

80 FOR i = 1 TO 1000 : NEXT 

90 PRINT q$(tp)3" 7 o"; 

100 k$ = INKEYS$ : 1F k$ = "" THEN 100 ELSE k$ = 
LOWER (k$) 

110 1F $ = "n" THEN PRINT "n" 2: p = ríp) o: 
GOTO 70 

120 IF k$ = "s" THEN FRINT "s" : p = 1(p) > 
GOTO 70 

130 GOTO 100 

140 FOR ¡ = 1 TO 1000 2 NEXT 3 

150 FRINT "El animal es un"3q$(p)¿" ? " 

160 k$ = INKEYS$ : 1F k$ = "" THEN 160 ELSE k$ = 
LOWER (kb) 

170 IF k$ = "s" THEN FRINT "Ya lo sabia yo!" 
GOTO 330 


180 IF k$:23"n" THEN 160 

190 nf = nf+2 2: IF nfin THEN FRINT "Aumente el 

tamaño de las matrices" : STOF 

200 FPRINT 

210 INFUT "Que animal habia pensado?¡q$(n++1) : 
aq$(nf+1) = UFPFER$(q$(nf+1)) 

220 g$(nf) = g$(p) 

230 FRINT 

240 PRINT "Introduzca la pregunta que distinga” 
250 FRINT "un"sg$(n4f); "de un";¡g$ (n+f+1) 
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260 FRINT : INFUT q€(p) : g$(p) = UFFER$(q% (p)) 


270 FRINT FRINT "La respuesta es S Oo N para" 
280 FRINT "un"igq$(tnf)33" 7 " 

290 $ = INKEYS : IF k$ = "" THEN 290 ELSE k$ = 
LOWERS$ ($) 

300 IF $ = "s" THEN 1(p) = nf : rí(p) = nf+1 : 
GOTO 330 

310 IF $ = "n" THEN r(p) = mf : 1(p) = nf+1 : 


GOTO 2330 
320 GOTO 290 
2330 FRINT : FRINT "Quiere jugar de nuevo?" 





340 k$ = INKEY$ : IF $ = "" THEN 340 ELSE k$ = 
LOWERS$ (k $) 

350 IF k$ = "n" THEN END 

360 IF k$ = "s" THEN GOTO 20 


370 goto 340 

2380 REM iniciación 

2390 n= 150 3: nf = 12 

400 DIM g$(n),1 (n),r (m) 
410 FOR y = 1 TO 123 

420 READ q$+(j),1(j),.r (j) 
430 NEXT j 

440 RETURN 

450 DATA "ES UN AVE",3,2 
460 DATA "ES UN MAMIFERO", 4,3 
470 DATA "VUELA",6,7 

480 DATA "TIENE UNA TROMFA",8,9 
490 DATA "a RANA",0,0 

S00 DATA " FETIRROJO",0,0 
510 DATA " AVESTRUZ",0,0O 
520 DATA " ELEFANTE",O0,O 
530 DATA "HIBERNA", 10,11 
540 DATA "a ARDILLA",0,0 
550 DATA "NADA",12,13 

560 DATA "a FOCA",0,0 

570 DATA " FERRO",O0,O 


Un pequeño problema: cuando apague su 444, olvidará todo lo 
que ha aprendido sobre ranas, elefantes, etc. Fuede 
rectificarlo reemplazando la estructura DATA por un fichero 
que se grabará antes de apagarlo. 


Ya que el tema de las estructuras de datos es largo y 
complicado, cualquiera que quiera estudiarlo más en 
profundidad puede conseguir uno de los numerosos libros 
especializados que existen en el mercado. Yo le recomiendo 
"Successful Software for Small Computers" por G' Bech, 
publicado por Sigma Technical Fress. Contiene numerosos pro- 
gramas en BASIC para las diferentes estructuras. 
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CAPITULO OCHO 
PROCESO DE DATOS 


TECNICAS PARA CLASIFICAR 


Una de las vequeñas ventajas que tiene un ordenador sobre el 
cerebro humano es su habilidad para acometer trabajos largos 
y laboriosos, pero realativamente <imples, en un pequeño 
periodo de tiempo. Una de laz tareas que vamos a examinar es 
el trabajo de clasificación de datos numéricos y alfabéticos 
en cualquier orden - usualmente en orden alfabético 
ascendente. Hay varios algoritmos desarrollados para hacer 
este tipo de operaciones aunque su eficiencia es normalmente 
inversamente proporcional a su complejidad. 


Nos vamos a limitar a ver los cuatro algoritmos siguientes. 


METODO - COMPLEJIDAD EFICIENCIA 
Fequeñaz | Grandes 
cantidades cantidades 
de datoz de datos 

Burbuja Muy sencillo Excelente Pobre 

Inserción Muy sencillo Excelente Fobre 

Concha Normal Buena Buena 

Répido Complejo Buena Muy Puena 

Fig.8.1 


Los datos se suelen almacenar en matrices, cuyo tamaño 
viene limitado por la disponibilidad de RAM. Una de las 
cosas que debemos considerar siempre cuando nos decidimos 
por un algoritmo, es el requerimiento de memoria; algunos 
métodos requieren una gran cantidad de memoria además de la 
matriz que contiene los datos. 


Ahora explicaremos en detalle cada uno de los algoritmos 
mencionados anteriormente, con un programa que los ilustre. 


El código principal que damos a continuación puede usarse 
para preparar datos aleatorios para llamar a cada programa 
de clasificación. Fara poder comparar los diferentes 
métodos, el programa debe darnos también el tiempo de 
proceso. 
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CODIGO PRINCIPAL 


10 CLS : FRINT "TECNICAS DE CLASIFICACION" 
20 FRINT : ZONE 8 

ZO INFUT "Introduzca el número de datos":in 
40 IF n25S OR n:1000 THEN 10 

S0 DIM dí(n),s(40,2) 

60 FOR ¿y = 1 TO n 

70 d(3) = INT(RNDxA2300) 

80 NEXT j 

90 CLS : FRINT "TECNICAS DE CLASIFICACION" 
100 FRINT : FRINT "INTRODUZCA" : FRINT 

110 FRINT "1...de Burbuja" 

120 PRINT "2...de Inserción" 

130 PFRINT "23...de Concha" 

140 FRINT "4.,..Rápido" 

150 k$8 = INKEYS : IF $ = "" THEN 150 ELSE k = 
ASC ($) -48 

1580 IF kx1 OR k:4 THEN 150 

170 t1 = TIME 

180 ON E GOSUE 1000 . 2000, 3000 " 4000 

190 t = ROUND ((TIME-t1)/2300,2) 

200 FRINT : FRINT "Datos clasificados" 

210 PRINT : FRINT "Tiempo "3t3 "segundos" 
220 EFRINT "Quiere ver los datos? (s/n/p)" 


230 k$ = INKEY$ 2: IF k$ = "" THEN 230 ELSE k% = 
LOWERS ($) 


240 IF $ = "n" THEN 60 

250 IF K$ = "p" THEN END 

260 IF K$2:"s" THEN 230 

270 CLS FRINT "Datos clasificados" : FRINT 
280 FOR ¿y = 1 TO n 

290 FRINT d(j), 

200 NEXT j 

Z10 FOR 3 = 1 TO 5000 2 NEXT j 

320 GOTO 60 


CLASIFICADION DE BURBUJA 


Al primero de los métodos de clasificación se le llama de 
*"burbuja” (bubble sort) porque los valores más bajos parece 
que flotan hacia el extremo superior de la matriz, y los 
valores más altos se hunden hacia el final. La matriz es 
recorrida continuamente y los datos contiguos son intercam- 
biados cuando el primero es mayor que el segundo; si no se 
realizan intercambios, la lista está en orden. 

Ejemplo: 
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FRIMERA FASADA 


2 2 2 2 

( 7 3 3 3 

3 ( 7 6 6 

6 6 ( 7 4 

4 4 4 7 

8 8 8 8 
-———__—SA ———> -—_——> 


SEGUNDA FASADA 


SS 
0 YJADU0mN 
0 YJ0420N 


——— > 


TERCERA FASADA 


0 JOY 


Fig.8.2 


En la tercera pasada no se han hecho cambios, lo que 
indica que la lista ya está ordenada. 


PROGRAMA 24: CLASIFICACION DE BURBUJA 


1000 REM clasificación de burbuja 
1010 FOR y = 1 TO nm-1 

1020 £ = 0 

1030 FOR 1 = 1 TO nm-j 

1040 IF d(i:í= d(1+1) THEN 1070 


1050 +4 = 1- 

1060 t = d(i+1) : d(i+1) = d(1) 2: d(1) = t 
1070 NEXT i 

1080 IF 4£ = O THEN 1100 


1090 NEXT j 
1100 RETURN 


101 


CLASIFICACION POR INSERCION 


El método de clasificación por inserción (insertion sort) 
permite ordenar una lista de datos en una simpla pasada de 
la matriz. Cuando se encuentra un dato fuera de orden, se 
busca su posición correcta y se mueven los otros datos un 
lugar a lo largo de la matriz para posicionarlo correctamen- 
te. > 


Ejemplo: 

99 75 46 46 4 

—r|75 99 5 75 75 46 

46 46 99 y 80 75 

80 80| —>|80 99 80 

4 4 4 —| 4 99 

oa —+ — —< —> 

ig.8.3 


PROGRAMA 25: CLASIFICACION POR INSERCION 


2000 REM clasificación por inserción 
2010 FOR y = 2 TO n 

2020 t = d(4) 

2030 FOR ií = ¿3-1 TO 1 STEF -1 

2040 1F d(1) ¿= t THEN 2070 

2050 d(i+1) = d(i) 


2060 NEXT á 
2070 d(i+1) = t 
2080 NEXT j 
2090 RETURN 


CLASIFICACIÓN DE CONCHA 


Mientras que el sistema de burbuja compara solamente 
elementos adyacentes en la matriz, el de concha hace compa- 
raciones iniciales entre elementos que están alejados, 
asumiendo que si dos elementos muy separados han de ser 
intercambiados, es más eficiente hacerlo lo antes posible. 
La separación entre elementos de datos se llama "*intérvalo 
de clasificación. Inicialmente, el intérvalo se inicia con 
el número de elementos y en cada pasada se va reduciendo a 
la mitad hasta que la pasada final equivale a una de 
burbuja. 


PROGRAMA 26: CLASIFICACION DE CONCHA 
2000 REM clasificación de concha 
2010 si = n 
SOZ0O IF sizld THEN 2120 
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3030 si = INT(si/2) 

3040 4 = 0 

OSO FOR i = 1 TO n-si 

3060 1F d(1) <¿= d(i+si) THEN 2090 

3070 + = 1 

3080 t = d(i+si) : dí(i+si) = d(i1) : d(i1) = t 

3090 NEXT i 

32100 IF 4 = O THEN 3020 

2110 GOTO 3040 

2120 RETURN 
CLASIFICACION RAPIDA 

Y por último llegamos al algoritmo de clasificación rápida 
(quick sort). Es uno de los algoritmos de clasificación más 
complejos pero que suele dar los resultados más rápidos. La 
idea general es dividir los elementos en dos subgrupos 
(particionado) que, por orden, son particionados hasta que 


los subgrupos son suficientemente pequeños para que se pueda 


hacer una especie de 
eficiente. El programa debe 


elementos de datos no clasificados 
los subgrupos. Esto se hace almacenando la posicion 


clasificación de burbuja de modo 
recordar la posición de los 
mientras se clasifican 

inicial 


y final en la mtriz, de los elementos no clasificados. Estas 


posiciones se almacenan en una segunda matriz de forma 


la última posición almacenada 
este tipo de estructura se le 
se completa cuando la pila se 


Se usan dos apuntadores, uno 
datos en la matriz y el otro 
apuntadores estará apuntando 
encontraba inicialmente en la 


a este apuntador se le llama ” 
están siendo apuntados se intercambian si el más cercano 
otro. 


principio es mayor que el 
mueve entonces una posición a 


"pivot? y se repite el proceso. Esto continda hasta que 
dos apuntadores se encuentran, en cuyo caso es 
sobre el *pivot* en dos subgrupos y se repite el proceso 
Las posiciones se almacenan en la 


cada uno de ellos. 


s(n,2). Si, debido a la gran cantidad de datos, 
la pila, 


un desbordamiento de 
aumentarla de tamaño. 


que 
es la primera recuperada; a 
llama pila. La clasificación 


queda vacila. 


indica el primer elemento de 
el (dltimo. Uno de los dos 
siempre al elemento que se 
primera posición de la matriz; 
pivot”. Los dos elementos que 


al 

El segundo apuntador se 

lo largo de la matriz hacia el 
los 

particionado 

en 

matriz 


se produce 


aparece un mensaje para 


Ejemplo: 
PIVOT 


J>> hsubarupo 1 


=> 


subgrupo 2 





Estos dos subgrupos 
se clasifican luego 


Fig.8.4 
PROGRAMA 27: CLASIFICACION RAPIDA 


4000 REM clasificación rápida 
4010 ps = 1 


4020 s(1,1) = 1 

4030 s(1,2) = n 

4040 1F ps = O THEN 4200 

4050 ii = sípsj,1) 3: jj = S(psi2) 3: ps = ps-1 
4060 p = 0 1 1 = 11 1 3 = jj 

4070 1F d(1) <= d(j) THEN 4100 

4080 p = 1- 

4090 t = d(1) 3 d(1) = d(j) 2: d(j) = t 
4100 IF p = 0 THEN i = i+1 

4110 IF p = 1 THEN j = jl 

4120 IF iz THEN 4070 

4130 IF i := ¿3 THEN 4170 

4140 ps = ps+1 


4150 IF ps:40 THEN PRINT "FILA DESBORDADA" : STOP 
4160 síps,1) = i+1l 2: s(ps,2) = jj 

4170 jj = i-1 

4180 IF jjsii THEN 4060 

4190 GOTO 4040 

IDO RETURN 


CLASIFICACION ALFABETICA 


Un último programa para demostrar como clasificar una 
secuencia de cadenas alfabéticas. Se hace creando un árbol 
binario y usando un transversal IND (ver capitulo 7). El 
transversal se hace empezando en el ROOT y dirigiendose 
continuamente hacia la izquierda, metiendo los nodos en la 
pila. Cuando se llega a un apuntador nulo, sacamos el nodo 
de la pila e imprimimos sus datos. Cuando lleguemos al final 
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de esa rama, volveremos hacia atrás al nodo padre tomándolo 
de la pila e imprimiendo su valor. Después, si hay rama 
derecha, repetimos el mismo proceso enel subárbol. Este 
proceso se repite para todo el árbol. Recuerde que, cuando 
comparamos cadenas, se considera menor la que está primera 
en orden alfabético (como en un diccionario). 


PROGRAMA 28:CLASIFICACION ALFABETICA 


10 CLS 
20 nulo = +1: m= 150 
30 DIM n*tm),rím),1(m),s(m) 
40 GOSUE 250 
SO CLS : FRINT "CLASIFICACION ALFABETICA" 3: FRINT 
60 FRINT "Introduzca" : PFRINT 
70 FRINT "1...Iniciar" 
380 FRINT "2,..Añadir al árbol" 
90 FRINT "3...Listar el árbol" 
100 k$ = INKFKEYS : 1F k$ = "" THEN 100 ELSE k = 
ASC (k$) -48 
110 IF k21 OR 3 THEN 100 
120 ON E GOSUE 200, 400,600 
130 GOTO 50 
200 REM iniciar 
210 FRINT : FRINT "Iniciar" 
220 FRINT : FRINT "Está seguro?" 


230 k$ = INFEEYS : 1F $ = "" THEN 230 
240 IF:k$ = "n" THEN 2310 

2590 FOR y = 1 TO m 

260 n$(j) = "" 2 r(j)= 0: 1(3)= 0 
270 NEXT j 

280 root = nulo : yv = 0 

290 FRINT FRINT "Iniciación completa" 


300 FOR j 1 TO 1000 : NEXT j 
210 RETURN 


400 REM añadir 

410 CLS : FRINT "Añadir al árbol" : FRINT 
420 INFUT "Introduzca datos";d% 

430 v = v+1 o: IF vom THEN FRINT "Aumentar 
el tamaño de la matriz" : STOF 


440 IF d$ = "" THEN 420 

4530 1F root = nulo THEN n$(v) = d$ : r(v) = 
nulo : 1(v) = nulo : root = y : GOTO 530 

460 vv = root 

470 IF n$(vv):2d$ THEN 500 

480 IF 1l(vv) = nulo THEN 1l (vv) = v : GOTO 520 


490 vv = l(vv) 2: GOTO 470 
500 IF rí(vv) = nulo THEN r (vv) 
510 vv = EKívv) : GOTO 470 


GOTO 320 


u 
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520 n$(v) = d$ : rív) = nulo : 1(v) = nulo 
530 FRINT : FRINT "Elemento añadido" 

540 PRINT : FRINT "Salir s/n" 

550 $ = INKEYS 2: IF k$ = "" THEN 550 

560 IF k$:33"s" THEN 400 

570 RETURN 


600 REM listar 

610 CLS : FRINT "Fulse SPACE para listar" : FRINT 
620 IF INKEYS$ < SFACE$S(1) THEN 620 

630 IF root = nulo _THEN 70 

640 vv o = root :3 p 1 

650 IF vv = nulo THEN 690 

660 sp) = vv 3: p = p+il 

670 vv = 1 (vv) 

680 Es 650 


690 = p-1 : vv = s/p) 
700 PRINT n$ (vv) 
710 vv = r (vv) 


720 IF p:0 THEN 650 

ZO FRINT : FRINT "Fin del listado" 
740 IF INKEYS% = "" THEN 740 

730 RETURN 


FICHEROS EN CASSETTE 


Ya debe haberse dado cuenta de que, cuando se desconecta el 
Amstrad, el programa almacenado y sus datos se pierden para 
siempre. Los programas se pueden almacenar facilmente en un 
cinta de cassette normal para poder recuperarlos en cual- 
quier momento. La información se puede almacenar de la misma 
manera comunicandose con el cauce número 9 - aunque esta 
técriica tiene severas limitaciones. El sistema estándar 
tiene una sola unidad de cassette, de forma que el manejo de 
la entrada y la salida del cassette ha de hacerse cambiando 
las cintas cuando se requiera. También, se pierde mucho 
tiempo si la sección de cinta que contiene la información 
requerida está muy lejos de su posición actual. Debido a que 
todos los datos se almacenan y acceden un elemento de cada 
vez, se dice que son ficheros sequenciales. Los datos entran 

y salen del cassette en bloques de 2K£ - estos son 
suficientemente pequeños para almacenarlos en la memoria, y 
se graban en la cinta con pequeños intervalos entre ellos, 
que permiten a la unidad de cassette parar y arrancar, ver 
figura 8.5. Cuando cargamos datos desde cinta, se graba un 
bloque en la memoria intermedia y se pueden leer los datos. 
Del mismo modo, cuando se almacenan datos en cinta se 
escriben primero en la memoria intermedia que es transferida 
a la cinta cuando se llena o se llega a] final del fichero. 
Esta técnica evita tener que estar arrancando y parando la 
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por cada elemento de datos, y por lo tanto permite 
empaquetar los datos más unidos dentro de la cinta. 


espacio entre bloques 
CER BLOQUE 2k EN 
SIGUIENTE $ DATOS | DATOS | DATOS | DATOS ] ANTERIOR 


DIRECCION » 
DE LA CINTA 


Figura 8.5:Almacenamento secuencial en cinta 


En las grandes instalaciones comerciales, la lentitud de 
los ficheros secuenciales en cinta magnética hace que la 
mayoria de las modificaciones se hagan usando "ficheros de 
transacciones”. Consideremos, por ejemplo, un banco con 
todas las cuentas corrientes de sus clientes almacenadas en 
cinta magnética. Durante el dia se altera el valor de algu- 
nas cuentas a medida que se reciben cheques oO dinero en 
efectivo. Seria poco eficiente, si no imposible, cambiar los 
valores de las cuentas a medida que van ocurriendo las 
alteraciones. En su lugar, se crea durante el dia un fichero 
de transacciones que recose cada alteración de las cuentas 
en el momento en que ocurren. Al final del dia, se clasifica 
el fichero de transacciones usando una clave Única, proba- 
mente el número de cuenta, hasta que los registros están en 
el mismo orden que los del archivo maestro. Entonces se 
comparan las dos cintas para ir modificando las cuentas y 
producir un nuevo fichero maestro. 


La única diferencia entre comunicarse con el cassete y con 
otros dispositivos de E/S es que en el primero hay que abrir 
el cauce con el comando OFENIN y  OFENOUT para entrada y 
salida respectivamente. En ambos casos se debe especificar 
el nombre del fichero - tenga en cuenta que si el primer 
carácter es un signo ! el cassete no lanzara los mensajes. 


OFENIN" CUENTAS" 


A partir de entonces, se puede pasar la información desde y 
hacia el cassete usando cualquiera de las sentencias de E/S 
y especificando el cauce número 9. 


Cuando se ha completado la operación de ES, los ficheros 
deben ser cerrados usando CLOSEIN Y CLOSEQUT. Tenga en 
cuenta que es vital cerrar los ficheros de salida, ya que al 
hacerlo escribe el contenido de la memoria intermedia en la 
cinta y añade el marcador de +tfin de Hfichero (EOF). Este 
marcador puede ser verificado durante el  INFUT para 
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comprobar que se han leido todos los datos. mediante la 
función EOF. 


El siguiente programa nos demuestra el uso de ficheros en 
cassette manteniendo un fichero de nombres y direcciones. El 
fichero se lee en memoria y después el usuario puede elegir 
entre añadir, borrar o aceder a los nombres y direcciones. 
Si se modifica el fichero, el usuario debe reescribirlo en 
la cinta. En la practica, se recomienda usar tres cintas; 
una para el programa, otra para el fichero maestro y la otra 
como copia de seguridad para mantener la segunda versión más 
reciente. 


El máximo número de nombres en este programa es 753 pero 
puede ser incrementado con la variable de la linea 70. 


PROGRAMA 29: AGENDA 


10 CLS 

20 ON BEREAE GOSUE 200 

20 WINDOW +$1,1,40,25,25 1: FEN $1,2 :3 INE 3,7,24 
40 ef = CHR$(1644)+ " Mark RK Harrison " 

S0 GOSUBE 7000 

60 nombre=1 : calle=2 : ciudad=Z 1 provincia=4 : 
codpost=5 1: telefono=4 

70 m= 73 2: DIM dé(m,6) : ptr = 1 1 4% = "DATOS" 
280 CLS : FRINT "AGENDA" 1: FRINT 

20 FRINT "Selecione:" : FRINT 

100 FRINT "1...Cargar fichero" 

110 FRINT "2...Salvar fichero" 

120 FRINT "2...Añadir registro" 

130 FRINT "4,.,.Borrar registro" 

140 FRINT "S...Ver registro" 

1530 FRINT "6...Ver nombres" 


160 $ = INKFEYS : IF k$ = "" THEN 160 ELSE K = 
ASC ($) -48 
170 IF Exi OR k:6 THEN e$ = "Opción Inválida" : 


GOSUB 7000 : GOTO 160 

180 ON k GOSUE 1000, 2000, 23000, 4000, 5000, 6000 
190 GOTO 80 

200 CLS : FRINT "BREAER" 

210 PFRINT "Quiere salvar los datos?" 


220 k$ = INEEYS 1: IF $ = "" THEN 220 ELSE k% = 
LOWERS ($) 

230 1F k% 2% "n" THEN GOSUB 2000 

240 END 


1000 CLS : FRINT "Cargar fichero" 
1010 FRINT 

1020 OFENIN 4% 

10730 FOR ptr = 1 TO m 
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1040 FOR ¿= 1 TO 6 

1050 INFUT +*9,D$(ptra j)? 

1060 NEXT j, 

1070 IF EOF THEN 1100 

1080 NEXT ptr 

1090 es = "Estructuras llenas" : GOSUBE 7000 
1100 CLOSEIN 

1110 RETURN 


2000 CLS : FRINT "Salvar fichero" 

2010 FRINT : FRINT "Elija velocidad cassette" 
2020 FRINT "0...Super seguro" 

2030 FRINT "1...Super veloz" 


2040 k$ = INKEEYS 3 IF k$ = "" THEN 2040 
2050 IF $ = "O" THEN SFEED WRITE O ELSE SFEED 
WRITE 1 


2060 FRINT 

2070 OFENOUT 43% 

2080 FOR prt = 1 TO m 

2090 1F d$(ptr.nombre) = "" THEN 2120 
2100 FOR y = 1 TO 6 

2110 WRITE +$9,d$+ (pr, j) 

2120 NEXT j 

2130 NEXT ptr 

2140 CLOSEOUT 

2150 RETURN 


Z000 CLS 1 ptr = 0 

3010 FRINT "Añadir registro" : FRINT 

3020 FRINT "Introduzrca:" : FRINT 

ZOZO INFUT "NOMERE"¿n$ 

3040 1F n$ = "" THEN ef = "No ha especificado 
nombre" : GOSUB 7000 : GOTO 2000 

3050 FOR y = m TO 1 STEF -1 

3060 IF d*(j,nmombre) = "" THEN ptr = ¡ 

3070 IF d$(¿,nombre) = n$ THEN e$ = "Nombre 
duplicado” : GOSUE 7000 : GOTO 2190 

3080 NEXT j 

3090 IF ptr = O THEN e*+ = "Fichero lleno" : 
GOSUBE 7000 : GOTO 3190 

3100 d$(ptr, nombre) = n* 

3110 INFUT "CALLE"¡d$(ptr,calle) 

3120 INFUT "CIUDAD":d$(ptr, ciudad) 

130 INFUT "FROVINCIA":d$(ptr, provincia) 
3140 INFUT "CODIGO FOSTAL":¡d$*(ptr,codpost) 
7150 INFUT "TELEFONO"; d$ (ptr, telefono) 

3160 FRINT " : FRINT "Correcto?" 

7170 $ = INKEEYS : 1F k$ = "" THEN 3170 ELSE 
k$ = LOWERS$ (k$) ' 

3180 1F $ = "n" THEN FRINT : GOTO 3110 
2190 RETURN 
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4000 CLS : FPRINT "Borrar registro" : FRINT 
4010 INFUT "Introduzca nombre"in$ : FRINT 

4020 FOR ptr = 1 TO m 

40730 IF de(ptr,nombre) = n$ THEN d$(ptr,nombre) 


= "" 3 GOTO 4060 

4040 NEXT ptr 

4050 e$ = "No está en la lista" : GOSUE 7000 : 
GOTO 4080 

4060 FRINT : FRINT "Nombre borrado" 

4070 FOR 3 = 1 TO 2500 : NEXT 5 

4080 RETURN 

5000 CLS : FRINT "Ver registro" : FRINT 


5010 INFUT "Introduzca nombre"in*$ : FRINT 
S020 FOR ptr = 1 TO m 

SOzZO IF d$*(ptr, nombre) = n$ THEN 5060 
3040 NEXT ptr 

5050 ef = "No existe ese registro" 

GOSUE 7000 : GOTO 5120 

5060 FRINT "CALLE",d$(ptr,calle) 

5070 FRINT "CIUDAD",d$(ptr, ciudad) 

5080 FRINT "FROVINCIA",d$(ptr, provincia) 
35090 FRINT "CODIGO FOSTAL",d$ (ptr, codpost) 
5100 FRINT "TELEFONO", d*+(ptr,telefono) 
3110 IF INKEY*$ = "" THEN 5110 

S120 RETURN 


6000 CLS 
6010 FOR ptr = 1 TO m 
6020 IF d$(ptr, nombre): "" THEN WRITE 


d$*(ptr, nombre) 

6030 NEXT ptr 

6040 FRINT : FRINT "EOF" 

60390 FOR 3 = 1 TO 2500 : NEXT j 
6060 RETURN 


7000 FRINT CHR$(7) 
7010 FRINT 4$1,e$ 
7020 IF INEEYS = "" THEN 7020 


7020 FRINT $1, SPACES (20) 
7040 RETURN 


Es muy importante asegurarse que las cabezas del cassette 
estén siempre limpias. Cuando la cinta pasa sobre la cabeza, 
va dejando pequeños depósitos; con el tiempo estos depósitos 
son tantos que las grabaciones pierden calidad y el Amstrad 
no es capaz de descifrar las señales. Es recomendable 
también usar cintas de buema calidad ya que las malas 
pierden la grabación con el tiempo. Otro problema con las 
cintas de baja calidad es que se les 'desprende la capa 
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magnética fácilmente. Esto causa que la acumulación de óxido 
sobre las cabezas se acelere y, peor aún, puede que le haga 
perder alguna información valiosa. 


FICHEROS EN DISCO 


En el momento de escribir este libro se está anunciando que 
CF/M, un sistema operativo de discos, estará disponible en 
breve para el Amstrad. El disco está empezando a ser el 
producto más comán usado por los microprocesadores para 
almacenar información. Sus ventajas incluyen gran seguridad 
y tiempos rápidos de acceso. For desgracia su precio los ha 
hecho objetos de lujo para los aficionados. 


CP/M se trata en profundidad en "CP/M - The Software Bus" 
(publicado por Sigma Fress) y es un compañero ideal tanto 
para los experimentados como para los novatos. 


CAPITULO NUEVE 
GRAFICOS EN EL AMSTRAD 


Todos los lectores de este libro tienen probablemente un 
amigo que, cuando vea la máquina, le pedirá que la encienda 
y esperará ver gráficos como los que se ven en las máquinas 
de los bares. Vamos a dar los primeros pasos para consegui 
es etipo de gráficos. 


Hay dos métodos para añadir información a la pantalla; 
estos son: 


1) Limpiar la pantalla con el comando CLS y  reconstruirla; 
esto se hace linea por linea, cada una de las cuales se 
debe almacenar usando gran cantidad de espacio. Otra 
desventaja es que el reconstruir la pantalla puede tomar 
mucho tiempo. 


2) Añadir la sección de pantalla requerida reposicionando el 
cursor, ya sea con los caracteres de control del cursor o 
con el comando LOCATE, y después imprimir sobre la 
sección original. 


Algunos lectores estarán familiarizados com una técnica 
llamada gráficos PEEK/FPOKE; donde la información se muestra 
en la pantalla con un FOKE de la sección de memoria que 
contiene la información de la pantalla y haciendo PEEK de la 
misma sección se puede loacalizar la posición de los 
caracteres. Desafortunadamente, debido a la disposición de 
la memoria de pantalla del Amstrad, la técnica de PEEK/FOKE 
no es fácil. Sin embargo, podemos solventar el problema 
usando el comando LOCATE y almacenando la posición de los 
caracteres en variables. 


CARACTERES DEFINIDOS POR EL USUARIO 


Aunque el juego de caracteres estándar tiene una gran 
variedad de simiolos, siempre hay algún momento en que el 
usuario requiere un simbolo que no está disponible. “Vamos a 
describir cómo definir nuestros propios caracteres y Crear 
simbolos gráficos como los de matemáticas, animales, cohe- 
tes, explosiones, invasores del espacio, etc. 


Todos los caracteres se definen en ocho octetos de memoria 
que representan la rejilla de 8 xs 8 puntos que forman el 
carácter. Cada bit se pone a *1* para representar el punto, 
que tomará el valor del INK en uso, ver figura 9.1. 
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DECIMAL BINARIO CARACTER 
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Fig.9.1 


Todos los datos de formación de caracteres se origina en la 
ROM del Amstrad, en una sección llamada generador de 
caracteres. Fara que el usuario pueda añadir nuevos 
Caracteres, se deben colocar los datos en una determinada 
posición de la RAM; sin embargo, si almacenaramos los 2506 
caracteres en RAM, requeririamos 2568 0 2kK octetos. De 
forma que, a tiempo de conexión, el Amstrad toma de la ROM 
los datos de formación de los 240 primeros caracteres y los 
16 restantes de una copia de la ROM localizada en RAM. Estos 
se pueden alterar con SYMBOL AFTER que especifica el código 
ASCII del primer carácter que se ha de colocar en RAM. ej. 
SYMBOL AFTER 128 - los caracteres del 128 al 255 se pueden 
redefinir. Tenga en cuenta que cuando ejecuta SYMBOL AFTER 
todos los caracteres definidos previamente vuelven a sus 
valores originales. 


Los caracteres se redefinen con el comando SYMBOL que 
especifica el código del caracter seguido de ocho valores 
que definen los datos de los puntos. Si se especifican menos 
de ocho valores, se asume cero para los altimos. 


Como ejemplo vamos a definir CHR$(255) para que represente 
un amigable invasor del espacio. 


DECIMAL BINARIO CARACTER 
66 0.0 1 
36 
189 
189 
255 
60 
36 


231 
Fig.9.2 
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De modo que lo único que tenemos que decirle al Amstrad es: 
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SYMBOL 255,66,36,189,259,60,36,23 
Ahora, cuando imprimamos el caracter CHR$(255) aparecerá 
nuestro invasor del espacio. 


10 CLS 

20 SYMEOL 255,66,36,189,25959,60,36,231 

ZO INE 1,21,17 : INK 0,0 

40 FEN 1 : FAFER O : BORDER 0 

50 x= 20 1 y = 12 

60 x = xM + INT(RNDAZ-1) : y = y + INT(RNDAZ-1) 
70 IF x2x1 OR x:40 OR y21l OR y*25 THEN END 

80 LOCATE x.y : FRINT CHR$ (255) 


90 FOR ¿= 1 TO 1000 : NEXT 
100 LOCATE x.y : FRINT SPACES (1) 
110 GOTO 60 


Observe como, haciendo parpadear ligeramente al invasor se 
aumenta el efecto. 


Se pueden conseguir caracteres más grandes imprimiendo 
varios caracteres unos junto a otros. 


Los efectos de animación se pueden conseguir diseñando 
varios caracteres para crear series de formas, e 
imprimiendolos rápidamente uno después del otro. El 
siguiente ejemplo nos muestra a un pequeño hombrecillo 
bailando: 


10 CLS 

ZO v = INT(RNDx4+248) 

ZO LOCATE 20,12 

40 FRINT CHR$(v) 

50 for E = 1 TO 200 : NEXT £ 
60 GOTO 20 


IMPRESION TRANSPARENTE 


Hay un código de carácter, que no hemos visto aún, que es 
el CHR$(22) y se usa para poner oO quitar la opción de 
impresión transparente. Se le añade un segundo carácter que 
actúa de conmutador. 


FRINT CHR$(22) + CHR$(0) quita la opción 
FRINT CHR$(22) + CHR$(1) pone la opción 


Normalmente, cuando se imprime un carácter, el que estaba 
en la posición donde se imprime, desaparece completamente. 
Si está activado el modo de escritura transparente, el 
caracter que se imprime se superpone encima del primer 
carácter, y los puntos del fondo toman los colores que 
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estaban presentes anteriormente. Esto permite que se 
muestren varios colores en una posición de carácter. Para 
ilustrarlo, ejecute el siguiente ejemplo que usa el logotipo 
de Sigma Press. 


10 CLS 

20 PRINT CHR$(22) + CHR$(1) 

30 LOCATE 25,1 

40 INE 3,20 3: FEN Z 

30 FRINT STRINGS$ (173, CHR$(143)) 
60 LOCATE 25,1 

70 INE 2,0 1: FEN 2 

80 FRINT CHR$(190) + CHR$(8) + 
STRINGS$ (13, CHR$ (210)) 

90 LOCATE 26,1 

100 INE 1,15 : FEN 1 

110 FRINT "Sigma Fress" 

120 PRINT CHR$(22) + CHR$(0) 


CONTROL DE ALTA RESOLUCION 


Inicialmente consideramos la pantalla del Amstrad como 
dividida, en MODE 1, en 25 lineas de 40 caracteres; despubs 
vimos como cada posición estaba dividida en una rejilla de 
8x8 pequeños puntos que pueden estar iluminaods o no. Ahora 
vamos a ver como controlar los puntos individualmente. Como 
con las posiciones de caracteres, el número de puntos 
presentes depende del modo en que está la pantalla, como se 
puede ver en la figura 9.3. 


MODO No. de puntos 

+ e 0 O O O O 5 O O 
o. 160x200 

1 320x200 

2 640x200 


Figura 9.3 


Un punto especifico se define con dos números de coordenada 
(x,y) donde x es la posición horizontal e y la posición 
vertical donde“cae el punto. 
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Figura 9.4:Distribución de puntos del Amstrad 


Es importante recordar que las coordenadas de la figura 9.4 
son las mismas para los tres modos; de forma que en algunos 
modos ciertas coordenadas se refieren al mismo punto. La 
relación del mapa vertical/horizontal está preparado para 
tener una relación de 1; (de modo que si dibujamos un circulo 
no aparecerá deformado). Es posible dar color a un punto en 
particular mediante la sentencia PLOT x,y o FLOT x,y,i donde 
ies el número de INK usado. La sentencia PLOTR es una 
extensión de la anterior, donde los valores x e y especifi- 
cados son desplazamientos desde una posición previa. 


De modo similar, DRAW dibuja una linea desde la posición 
actual hasta el nuevo punto (x,y) relativo al origen (0,0); 
DRAWR dibuja 1s linea desde la posición actual hasta un 
nuevo punto especificado por desplazamientos desde una 
posición anterior. Podemos preguntar por la posición actual 
de FLOT con las funcione XPOS e YPOS. 


Veamos algunos ejemplos: 


PROGRAMA 30: BURBUJAS 


10 CLS FPRINT "BURBUJAS" 
20 DEG RANDOMIZE TIME 
30 FOR = 1 TO 25 

40 x INT (RNDx4640) 


Lo. 


S0 y = INT(RND*X330) 
60 r = INT(RND*x73+25) 
70 i = INT(RNDX3+1) 


80 FLOT x+r,y 
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90 FOR q = 0 TO 260 STEF 10 

100 DRAW x+rxC0S(q),y+rX*xSIN(q),i 
110 NEXT q 

120 NEXT j 


Intente remplazar la linea 90 por: 


90 FOR q =0 TO 7200 STEF 123 





Esto ilustra cómo podemos 
dibujar circulos haciendo 
PLOT en los puntos dados por 
(a cosÓ ja sind ) 

conde a” es el rad20 


Fig.2.3 Dibujo de un circulo 


PROGRAMA 31:EPICICLOS 


CLS 3: FRINT "EFICICLOS" 
v = 4/73 

move 400,200 

FOR ¿3 = 0 TO 6xFI STEF F1/40 
x = FO0+100*XCOS ( ¡kv)xCOS(j) 
y = 200+100*XCOS(¡kv)X*xSIN(j3) 
DRAW x.y 

NEXT j 


Intente reemplazar el valor de v por otros como 2/3; en 
algunos casos puede ser necesario aumentar el valor de 
terminación de control del bucle en la linea 40. 


PROGRAMA 32:0NDAS DEL SENO/COSENO 


10" CLS 
ZO p=0 

30 FRINT CHR$(23) + CHR$(p) 

40 FOR ¿3 = 0 TO 10X*XFI STEF FI/25 
SO x = ¿Xx50/FI 

60 yl = 100*XSIN(j) 

70 y2 = 100*XC0OS(j) 

80 FLOT x,150 : DRAWR 0,y1,2 

90 PLOT x,150 : DRAWR 0O,yZ2,1 

100 NEXT j 

Pruebe a cambiar a 3 el valor de p en la linea 20 - que 


pasará cuando ejecute el programa?. Las áreas del coseno que 
cubren a las del seno aparecerán en rojo. Mientras que el 
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carácter de control CHR$(23) seouido de CHR$(0) pone la 
tinta normal, CHR$(23) seguido de CHR$(3) causa que la tinta 
tome un valor dependiente de ls tinta que esté presente y la 
especificada. El nuevo valor de tinta lo toma ejecutando un 
O lógico de las dos tintas; esto es, inspecciona los dos 
valores de la tinta en forma binaria y obtiene el nuevo 
valor con los bits tomando los que estén puestos en 
cualquiera de las otras dos. 


Ej. las dos tintas son 1 y 2 - DECIMAL BINARIO 
1 01 
2 10 
3 11 


de modo que la tinta de las áreas que se sobreponen será 3. 


Aquí tenemos un sumario de los valores que pueden seguir a 
CHR$ (23). 


CHR$ (23) + El nuevo valor de INK toma los bits 
puestos solamente sis- 


CHR$ (0) Normal 


CHR$ (1) XOR los bits correspondientes son diferentes. 
CHR$ (2) AND los bits correspondientes están puestos. 
CHR$ (3) OR cualquiera de los bits correspondientes 


está puesto. 
Fig 9.6: MODOS DE INK 


El programa 3 demuestra que es posible dibujar una función 
de dos variables en tres dimensiones con superficies s0li- 
da. Fara ver como funciona el programa, considere la figura 
9.7. La figura está hecha trazando lineas curvas en posicio- 
nes de la pantalla que son relativas a las posiciones ya 
trazadas. Si observa la figura 9.7, verá que vamos generando 
una "rebanada? cada vez, desde el frente al "fondo de la 
superficie “sólida”. 


Fara producir el efecto de tres dimensiones, el programa 
considera la linea ST y todas sus paralelas, y Calcula el 
valor de la función en los puntos en que las lineas rectas 
cortan a las curvas. El punto es marcado en la pantalla en 
una posición que tiene en cuenta el valor de la, función y 
también la linea curva que se está tratando. Sin embrago, 
para dar la impresión de una superficie sólida, el punto 
debe ser marcado si no tiene una superficie en frente de él, 
esto es, el punto solo debe ser marcado si su coordenada y 
es mayor que cualquiera de las que hemos trazado anterior- 
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mente en la linea que estamos tratando. 


Fruebe a remplazar la línea de la función con una que se le 
ocura, tenga en cuenta que la escala debe ser tal que no se 
salga de la pantalla. 


La función 
se evala 
aqui 


líneas curvas 
trazadas con 
PLOT 





Figura 9.7: TRAZADO TRIDIMENSIONAL 
PROGRAMA 33: TRAZADO TRIDIMENSIONAL 


10 DEF FN alj,k) = SOX(SIN((¿X3+kXk)/1000)) 
20 CLS 


30 qq= 175 

40 FOR x = 0 TO q STEF 2 
50 y = SQR (q*xq-x<*x) 

60 m= -1E+09 

70 FOR z = -y TO y STEF 4 


80 v = FN a(x,z) 

90 p = v + 2/3 + 100 

100 1F p ¿= m THEN 120 ELSE m = p 
110 FLOT Z2O0+x,p 2 FLOT 320-x,.p 
120 NEXT z 

130 NEXT x 


Pruebe a experimentar con las dos variables de la función de 
la linea 10, pero recuerde que deben tener una escala 
adecuada para que no se salgan de la pantalla. 


El programa 34 traza un histograma tridimensional de hasta 
18 valores. El trazado principal lo efectúa la subrutina 
situada en la linea 20 y está escrita de forma que pueda ser 
incorporada fácilmente en sus propios programas. Es preciso 
preparar dos valores antes de llamarla; q es un número entre 


1 y 18 que corresnonde a la posición de la pantalla donde va 
a aparecer el bloque e y es la longitud vertical del bloque. 
vertical del bloque. El efecto tridimensional se consigue 
coloreando las tres caras visibles en diferentes tonos de 
malva. 


Fresentamos una nueva sentencia, ORIGIN, que permite 
reposicionar los gráficos sobre las coordenadas de la 
pantalla. La coordenada (0,0) se mueve a la posición 
especificada. Se pueden especificar otros cuatro valores que 
preparan una nueva ventana de gráficos, como se ve a 
continuación: 


ORIGIN x,y,izquierda, derecha, arriba,abajo 


En nuestro programa, la coordenada y ha sido corrida 
verticalmente hacia arriba, para hacer más simple la inclu- 
sión de una linea de texto bajo el histograma. 


El principal problema para el programa es elegir una escala 
adecuada para los datos. En este caso, inspecionando la 
linea 120, puede ver un bloque de 200 unidades para el 
elemento mayor de datos y los demás bloques se dibujan en 
proporción. 


PROGRAMA 34: HISTOGRAMA TRIDIMENSIONAL 


10 CLS 

20 ORIGIN 0,25 

ZO DIM d(20) 

40 READ v$ 

S0 LOCATE 23,23 2 FRINT vé 
60 FOR ¡y = 1 TO 18 

7O READ v : 1F y = -—1 THEN 110 
80 n= y 1 d(4) = y 

90 IF vom THEN m = y 

100 NEXT 

110 FOR q = 1 TO n 

120 y = d(q)/mx300 

130 GOSUB 200 

140 NEXT q 

150 FEN 2 

160 LOCATE 1,1 : END 


200 FOR p = 0 TO y 

210 FLOT 32Xq,p 

220 INK 2, : DRAWR 20,0,2 
230 INE 3,7 : DRAWR 10,10,3 
240 NEXT p 

2590 FOR p = 1 TO 10 

260 FLOT Z2xXQ+p.Y+p 


270 INE 1,4 : DRAWR 32,0,1 
¿280 NEXT p 
290 RETURN 


500 DATA "EF MAMJJAS ON D VENTAS 1984" 
510 DATA 100,77,155,77,23,56,24,100,78,145 
520 DATA 166,6,-1 


Podemos comprobar el color de una posición concreta 
mediante las funciones TEST y TESTR; la primera requiere 
coordenadas absolutas y la segunda desplazamientos relativos 
de la posición de FLOT actual. Esto se demuestra en el 
programa 35 en el que usted se debe encargar del control de 
una nave espacial con el ordenador de a bordo.- un Amstrad y 
sus teclas de control del cursor!'!', El objetivo es navegar 
evitando las estrellas, su propia estela y los bordes del 
universo. El mejor tiempo conseguido se guarda y se muestra 
continuamente - buena suerte!'', 


PROGRAMA 35:EXPLORADOR GALACTICO 


10 MODE 1 : RANDOMIZE TIME 
20 CLS : FRINT EXFLORADOR GALACTICO" : FRINT 


ZO INFUT "Introduzca nivel 1 - 29"¡=Sf 
40 IF sf:21 OR sf:92 THEN 20 

SO sf = sf/100 

60h = 0 


70 INK 0,0 : INE 1,24 INE 2,23 13 INE 3,26 
20 BORDER O : FAFER O : CLS 

90 PRINT "Mejor tiempo";zh, 

100 FLOT 0,0 

110 DRAW 6239,0,1 : DRAW 639,380, 1 

DRAW 0,380,1 : DRAW 0,0,1 

120 x = 300 1 y = 190 2 k = INT(RNDXx4) 

k 2 ti = TIME 





130 kk = 3—k 

140 k$ = INKEYS 3: IF £% <:3"" THEN 
kk = ASC(k$)-240 

150 IF kk = 0 AND 24 THEN k = kt 
1560 IF kk = O THEN y = y+2 

170 IF kk = 1 THEN y = y-2 

180 IF kk = 2 THEN x = x-2 

190 IF k = 3 THEN x = x+2 

200 IF TEST(x,y)2:0 THEN PRINT "CRASH!!!" o: 
GOTO 250 

210 PLOT x.y,2 


220 p = INT(RNDxX6Z8+1) : q = INT(RNDxA3738+1) 

230 IF TEST(p,q) = O AND RNDi3stft THEN FLOT p,gq,3 
240 GOTO 140 

2590 t = ROUND((TIME-t£t1)/2300,2) 

260 IF th THEN h = t 

270 IF INKEYS <5 "" THEN 270 
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280 IF INKEY*$ = "" THEN 280 
220 GOTO 80 


Hasta ahora hemos considerado la pantalla con dos tipos de 
ventanas - caracteres y puntos gráficos. Sin embargo, hay 
veces que queremos tener las dos. Con el comando TAG podemos 
redirigir la salida de un Cauce de modo que se pueda 
escribir en la posición de PLOT actual, permitiendo combinar 
simbolos y texto con gráficos. Ya que la resolución de la 
pantalla gráfica es mayor, el uso de TAG permite obtener un 
movimiento de la pantalla más preciso. 


TAGHO-dirige la parte superior izquierda del caracter 
que se saque al cauce 0, a la posición de PLOT actual. 


Este modo se puede inhabilitar con TAGOFF 

TAGOFF +0 

Cuando imprimimos caracteres en modo TAG, deben ir seguidos 
de un punto y coma para suprimir los caracteres de control, 
como el salto de linea o el retorno de carro. El siguiente 


ejemplo ilustra los efectos de animación de precisión que se 
pueden realizar usando TAG. 


PROGRAMA 36: ANIMACION 


10 CLS 

20 p=0:% 5 = 10 

ZO TAG HO 

40 FLOT 0,182 : DRAWR 639,0,1 
50 RESTORE 

60 FOR ¿y = 1 TO 4 

70 READ y 


80 p = p+t1 3 1F p = 285 THEN 160 

390 MOVE p,200 

100 FRINT SFACES+$ (1); CHR$ (v) ; 

110 MOVE 600-p, 200 

120 FRINT SFACES$(1);CHR$ (vw); 

120 FOR q = 1 TO s : NEXT q 

140 NEXT j 

150 GOTO 50 

160 FLOT 315,211,3 : FRINT CHR$(228)3 
170 DATA 248,250,249,251 


Se puede conseguir un excelente efecto de movimiento 
dibujamdo un objeto con puntos de varios colores y 
haciendo girar los colores. Esto se puede ver en el programa 
37 que muestra una esfera en rotación. 


PROGRAMA 37: ROTACION 


10 
ZO 
ZO 
40 
50 
60 
70 
80 
20 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 


DEG 

INE O,1 : INE 1,1 2: INE 221 2 INK 3,1 
FAFER 3: EORDER 1 2: CLS 
(0) = 123 2 i(1) = 24 2 i(2) = 0 
b = 100 

i=0 
ORIGIN 220,200 
FOR a = —-b TO b STEF 5 
MOVE 0,b 

FOR t = 0 TO 180 STEF 18 
DRAW axSIN(t),bDXCOS(t).i 
NEXT t 

1= (i+1)MOD Z 

NEXT a 

FOR a = 0 TO 2 

INE 0,i(a) 

INE 1,i((a+1)MOD 3) 

INE 2,iC(a+r2)MOD 23) 

FOR b = 0 TO 200 : NEXT b 
NEXT a 

GOTO 150 


Con esto terminamos nuestra visión de los gráficos en el 
Amstrad. Le he dado una muestra del vasto rango de control 
de gráficos que se puede obtener. 


CAPITULO DIEZ 
SONIDO Y SINTESIS 


Los usuarios del Amstrad pueden estar gullosos de las 
excelentes facilidades de sonido de su máquina. En nuestro 
siguiente tema trataremos de esta caracteristica y veremos 
qué tipo de sonidos se pueden producir. Cualquiera que haya 
aprendido alguna vez a tocar un instrumento musical sabrá 
que se requieren años de práctica para conseguir perfeccio- 
narse, y lo mismo es aplicable a tocar música con el 
Amstrad. Una vez que haya leido este capítulo, la única 
forma de dominar esta técnica es la de experimentar y 
aprender de los resultados obtenidos. 


Antes de entrar en los dominios de la sintesis del sonido 
en el Amstrad, hechemos una ojeada a lo que es el sonido. 


CARACTERISTICAS Y ONDAS DE SONIDO 


Todos nosotros tenemos gran cantidad de experiencias con el 
sonido durante nustra vida y sabemos que se pueden 
distinguir diferentes sonidos unos de otros - pero, que hace 
aun sonido diferente de otro?. Cada sonido está hecho por 
una transferencia de un lugar a otro de la energia causada 
por la vibración del aire. La diferencia entre los sonidos 
están afectadas por tres factores: 1) tono Il)calidad y I1I) 
volúmen. 


Si la fuente de sonido oscila f veces por segundo, el 
sonido emitido se dice que tiene una frecuencia de +f Hz 
(Hercios). Si la energia viaja una distancia A desde la 
fuente, en un segundo, el sonido producido tiene una 
longitud de onda de A . Esto se puede representar por el 
diagrama de la figura 10.1. 
desplazamiento 


del aire p—__A o] 








distancia recorrida 
por la onda 


Fig.10.1:0nda de sonido 


A 


El tono de una nota depende de la frecuencia de la onda de 
sonido producida; una frecuencia alta produce un tono más 
agudo y una frecuencia baja produce una nota grave. El 
intervalo musical entre dos notas es proporcional a la 
relación de las frecuencias y no a la diferencia. Esto es, 
la diferencia de tono para el oido, es la misma si una nota 
crece de 250 Hz a 500 Hz que si lo hace de 1000 Hz a 2000 
Hz. Si una nota tiene el doble de frecuencia que otra, se 
dice que las dos notas están separadas una octava. 


Un mismo tono tocado por diferentes instrumentos musicales 
pueden ser diferenciados aunque las notas tocadas sean 
exactamente las mismas. Esto se debe a que la calidad de las 
formas de onda de cada instrumento son diferentes. For 
ejemplo, cuando se hace sonar un diapasón producirá una 
forma de onda como la de la figura 10.1, un instrumento 
musical producirá una forma de onda semejante a la de la 
figura 10.2. 


o 


Fig.10.2:Forma de onda con "Ruido" añadido 


EL SONIDO EN EL AMSTRAD 


En el Amstrad se obtienen los sonidos con el comando SOUND 
que tiene una lista de parámetros; todos excepto los dos 
primeros, son opcionales. Cuando no se pone algún parámetro 
se toma su valor por defecto. 
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SOUND ec,pt.,d,v,ev,et.pr 


donde ec - estado del canal 
pt - periodo del tono 
d - duración 
y - volúmen 
ev - envolvente de volúmen 
et - envolvente de tono 
pr - periodo del ruido 


Ahora nos introduciremos en profundidad en la investigación 
de cada uno de los parámetros. 


ESTADO DEL CANAL 


El Amstrad tiene tres osciladores de sonido independientes 
(algunas veces son referidos como voces, en otros ordenado- 
res) y por lo tanto en la sentencia SOUND, debemos especifi- 
car el canal de voz al que queremos encolar nuestro sonido. 
Fodemos combinar juntas dos o más voces , pero debemos tener 
cuidado de que las notas estén sincronizadas correctamente. 
Nos referimos a los tres canales de sonido como A, B y C; 
cada uno de los cuales puede tener hasta cinco sonidos 
encolados. El parámetro de estado de canal es un patrón de 
bits que dirige la salida del sonido a los canales 
requeridos como se muestra en la figura 10.3. 


7 1 0 


com. |FLUSH HOLD Acor- Acor- Acor- manda manda manda 
de C de B de A ac aB aA 


64 32 16 8 4 1 1 valor 





Fig.10.3 Estado de Canal 


En la siguiente sección, recuerde que los números binarios 
se sobreentienden que van precedidos por *X en el Amstrad. 


Para emitir sonido por el canal A el estado de canal nece- 
sita tener puesto el primer bit, ej 00000001 (en binario) U— 
1 (decimal). De modo similar, la salida a los canales Bo C 
necesitan tener el estado de canal puesto a 00000010 (bina- 
rio),2 (decimal) o 00000100 (binario),4(decimal) respectiva- 
mente. 


Para emitir sonido por varios canales, el estado .de Canal 
necesita ser puesto a la suma de los estados de los canales 
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correspondientes. For lo tanto, para emitir sonido por los 
tres canales debemos tener puestos los tres bits, ej 
00000111(binario) o 7 (decimal). 


Como puede ver en la figura 10.3 hay otros bits que pueden 
ponerse. Dos canales pueden ser sincronizados(acorde) de 
forma que sean accionados simultáneamente poniendo en cada 
estado de canal los bits de acorde del canal de voz opuesto. 


El bit 6 del estado de canal se llama de retención(HOLD) y 
cuando se pone se congelan las colas de sonido, ej. no se 
emiten más «sonidos del canal. Las colas pueden ser 
descongeladas con el comando RELEASE que permite que el 
sonido sea procesado en los canales especificados, para 
continuar. El valor pasado es un número entre 1 y 7(3 bits) 
y especifica los siguientes canales: 


Bit O:Canal A 
Bit 1:Canal B 
Bit 2:Canal C 


De forma similar, al bit 7 se le llama de evacuación (FLUSH) 
y borra todas las colas en los canales en que se pone y 
activa la sentencia SOUND actual inmediatamente. El bit de 
evacuación se puede usar también para descongelar un canal 
de sonido, pero recuerde que se pierden las colas de sonido. 
Las colas de sonido se pierden también cuando se imprime el 
carácter de control CHR$(7). 


PERIODO DE TONO 


El periodo de una nota da las caracteristicas del tono y es 
inversamente proporcional a la frecuencia que hemos visto al 
principio de este capitulo. La relacción exacta entre los 
dos se calcula con la siguiente fórmula: 


frecuencia=125000/periodo 


En la figura 10.4 se dan los valores que se usan en la 
escala musical. Recuerde que las notas que están separadas 
una octava tienen una relacción de frecuencia de 2; como 
resultado, se puede calcular fácilmente el periodo de una 
nota. 


Poniendo el periodo a € se consigue el *ruido blanco* donde 
la forma de onda es generada aleatoriamente; sin embargo. se 
debe pasar un parámetro de periodo de ruido(1l a 15) como 
séptimo parámetro de SOUND. 
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451 402 338 301 268 
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478 426 379 358 319 284 253 239 
Fiqo.10.4 La escala musical-Valor de los periodos 


Aunque nuestro control de sonido en este momento es muy 
elemental, el programa 38 nos muestra un instrumento operado 
con las teclas del 0 al 9. 


PROGRAMA 38: INSTRUMENTO SIMPLE DE TECLADO 


10 DIM n(10) 
20 ON BREAK GOSOE 80 

30 SPEED KEY 5,1 

40 FOR ¿= 1 T0 10 : READ n(j) : NEXT 

SO k$ = INKEYS 2: 1F k$="" THEN SO ELSE k = 

ASC (k$)-47 

560 IF 50 AND k:11 THEN SOUND 1,n(k) ELSE 50 

70 GOTO 50 

80 SFEED KEY 10,3 

90 END 

100 DATA 284,478,451,426,402,379,358,338,319,301 


DURACION 


En este momento, la longitud de cada nota de sonido es de 
1/5 segundos pero se puede alterar especificando el tercer 
parámetro que da la sell en centésimas de segundo. El 
rango de valores es desde -32767 a 32767;l0s valores negati- 
vos y el cero tienen sus propios usos, que estudiaremos al 
tratar de la sintesis de sonido. 


VOLUMEN 
La potencia del sonido viene dada por el cuarto parámetro y 


debe estar en el rango de 0O(sin sonido) al 7(máximo); los 
valores 8 a 15 se usan con la sintesis de sonido. 
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SINTESIS DE SONIDO 


Antes de explorar la capacidades de sintesis del Amstrad, 
hechemos una ojeada a lo que hace diferente un sintetizador 
de un instrumento musical. 


En la figura 10.2 vimos como la onda de sonido emitida por 
un instrumento musical difiere de la nota pura, que repre- 
senta la onda del seno de la figura 10.1. Es el modo en que 
son modificadas estas formas de onda, lo que da a un sonido 
su su carácter especifico, y a esta modificación se le llama 
*control de la envolvente?. La envolvente de volumen se 
divide en tres secciones: Ataque, Sostenido y Caida(ASC), 
como se ve en la figura 10.5 
Vol men 


pico 





tiempo 
Fig.10.5 La envolvente ASC(volúmen) 


ATAQUE: 

Es el tiempo que tarda en llegar el pico de la onda. Esto se 
ve mejor examinando dos instrumentos musicales, el piano y 
el violin. El piano usa un mecanismo de martillos para crear 
el sonido; el martillo golpea la cuerda, la cuerda vibra “y 
se crea el sonido. Ya que el sonido llega al pico de la onda 
virtualmente al mismo tiempo que se golpea la cuerda, el 
ataque es corto y potente. El violin, sin embargo, requiere 
un arco que roze las cuerdas y la vibración de éstas se 
construye a medida que el arco las cruza. Este, por lo 
tanto, tiene un ataque largo. 


CAIDA: 

Es el tiempo que tarda en ir desde lo alto de la onda hasta 
su final. Cuando, en el piano, se retira el martillo, la 
cuerda contióa vibrando hasta que la energia creada por el 
golpe se disipa; por lo tanto, la caida es larga. Sin embar- 
go el sonido de una flauta cesa casi inmediatamente que el 
músico deja de soplar; por lo tanto, tiene una caida corta. 


SOSTENIDO: 
Es el tiempo que la onda permanece en su pico. 


Se pueden obtener cambios rápidos de frecuencia, consi- 
guiendo el efecto del vibrato, contolando la envolvente de 
tono, como en el ejemplo de la figura 10.6. 
periodo 
de tono 


periodo 

inicial 

de tono 
— 


tiempo 





sección 1 sección 2 sección 3 sección 4 


Figura 10.ó:La envolvente de tono 


De modo que para producir sonidos caracteristicos, y no 
simples *"beeps”, usamos la envolvente para controlar la 
forma de las ondas sintetizadas. Cómo podemos programar el 
control de la envolvente en el Amstrad”. 


CONTROL DE ENVOLVENTE DE VOLUMEN 

Fara controlar la envolvente de volúmen, debemos definirla 
primero usando la sentencia ENV, y después hacerla referen- 
cia en la sentencia SOUND. En efecto, se pueden definir 
hasta 15 envolventes(etiquetadas del 1 al 15), cada una de 


las cuales puede tener hasta 3 secciones (periodos de ataque, 
sostenido y caida). 


Fara definir una envolvente usamos: 
ENV número, F1,01,R1,F2,02,R2s.. << «FO, 05, Ro 


donde Fi,Qi,Ri definen las caracteristicas de Cada “sección 


de la envolvente: 


Fi=cuenta de pasos(0 a 127) 
Qi=Tamaño de paso(-128 a 127) 
Ri=Tiempo de pausa(0 a 251) 


Consideremos una envolvente de solo tres secciones: 
Volúmen 





A . 14 23 4 
sección 1 sección 2 sección 3 tiempo 


Fig.10.7 1/100 seg. 


Cada sección la dividimos en pasos, cada uno múltiplo de 
1/100 segundos. For ejemplo, podemos dividir la figura 10.7 
como sigue: 


sección 1=3x1/100 
sección 2=1x11/100 


=_> 


sección 3=3X3/100 

pasos tiempos de pausa 
por lo tanto, se requieren los siguientes parámetros: 
Pi=3,R1=1F2=1,R2=11F3=3,R3=3 


El tamaño de paso se evalúa calculando el número de 
unidades de volúmen que se aumentan dentro de él. 


01=15/3=5; 02=0; 03=-15/3=-5 

Finalmente, necesitamos una etiqueta dentro del rango 1 a 
15 para podernos referir a esta envolvente en nuetras 
sentencias SOUND; por ejemplo 1. 

De modo que nuestra envolvente será: 


ENV 1,3,5,1,1,0,11,3,-5,3 


== 
de 


La etiqueta de ENV se pasa en el quinto parámetro de la 
sentencia SOUND. El volúmen ¡inicial se controla por el 
cuarto parámetro pero, cuando se crea una envolvente, el 
rango es de 8(minimo) a 15(máximo). El número de veces que 
se debe repetir la envolvente de volúmen es un valor 
negativo en el tercer parámetro. 


En este punto probablemente se habrá dado cuente que, a 
menos que sea un experto en acústica, la (única forma de 
conseguir un sonido exacto es mediate experimentos. 


CONTROL DE LA ENVOLVENTE DE TONO 

La envolvente de tono se controla de forma similar a la de 
volúmen; se pueden definir también cinco secciones usando el 
comand ENT: 

ENT número, F1,01,R1,F2,02,R2... << «Fo, Opa Ro 
donde Fi,Qi,Ri son como en el anterior, pero sus rangos son: 
Fi=Cuenta de pasost0 a 239) 
Qi=Tamaño del paso(-128 a 127) 

Ri=Tiempo de pausa(Ú a 2559) 

La envolvente de tono se repetirá en toda la longitud de la 


envolvente de sonido, si se usa un número negativo(aunque se 
especifique como positivo en la sentencia SOUND). 








+4 etc. (repitiendo) 


tiempo 
1/100 seg. 





' 
' 
' 
1 
sección 1 sección 2 sección 3 


Fig.10.8 


1 AA 
PS 


En la figura 10.8 definimos las secciones como: 


sección 1=1xX2/100 
sección 2=2x5/100 
sección 3=1x2/100 


pasos tiempo de pausa 
de modo que: 
Fi=1 Q1=4 Ri=2 
P2=2 a2=-4 R2=3 
P3=1 Q3=4 R3=2 


Asi que, para la envolvente número 1 debemos usar: 
ENV -4,1,4,2,2,-4,5,1,.4,2 


El número de la envolvente de tono es el sexto parámetro de 
SOUND. 


El siguiente programa está escrito con disculpas a los 
amantes de la música. Su idea es tocar la canción ”Ogonek” 
pero se ha escrito en forma de esqueleto para que usted 
pueda experimentar con el control de la envolvente. En la 
matriz n(39), se han preparado periodos de tono para 40 
notas. Los subindices de las notas requeridas se almacenan 
en sentencias DATA y, una vez leidas, se tocan por los 
canales A y B que se sincronizan poniendo los bits de 
acorde. El canal B se ha organizado para tocar dos octavas 
por debajo del A dividiendo el periodo del tono por cuatro. 


PROGRAMA 39: OGONEK 


10 GOSUE 200 : REM iniciación 
20 ENV 1,3,20,1,1,0,20,1,-1,.1 
30 ENT -2,1,1,20,2,-1,50,1,1,20 
40 READ v : IF v = -—1 THEN END 
SO SOUND 1ó+1,n(v),-1,15,1,2 

60 SOUND 8+2,n (v)/4,-1,15,1,2 
70 GOTO 40 


200 DIM n(39) 

210 FOR k = 0 TO = 

220 RESTORE 

230 FOR ¡¿= 0 TO 9 

240 READ y 

2590 n(tkk10+3) = v/(k+1) 

260 NEXT j 

270 NEXT + 

280 RETURN 

290 DATA 478, 451,426,402,379,3398,338,319,301,284 
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1000 REM tonada de ejemplo 

1005 DATA 0,4,9,12,16,4,14,2,6,4,14,4,8,1,14,4, 
11,12,14,4,11,12,9 

1010 DATA 0,4,9,12,9,4,0,4,16,17,19,8,17,16,109, 
8,11,17,17,9,14,9,17,9,17.179,21 

1015 DATA 9,19,21,16,4,8,11,16,14,11,8,0,12,24, 


2424412, 25. 21,24,12, 16, 235,47 


1020 DATA 9,14,9,17,9,17,9,1,7,19,21,9,19,21,16, 
8,12,16,9,12,16,0,8,11,16 

1025 DATA 0,4,9,12,16,4,14,2,6,4,14,4,8,1,14,4, 
11,12,14,. 4.141.120 

1030 DATA 12,16,12,9,21 


1033 DATA -1 


sQ 


Con la función SA podemos averiguar el estado de uno de los 
canales de sonido. El argumento es 1ícanal A), (canal B) U 
4(canal C) y devuelve un valor compuesto por los siguientes 
bits que especifican el estado del canal: 
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Puesto Puesto Estado del acorde [num. entradas libres 
activo |retenido| (como en Fig 10.3) en la cola(0-4) 












Fig.10.9:Función de estado de canal 
INTERRUPCIONES DE SONIDO 


Habrá algunas ocasiones en las que quiera un sonido de 
fondo para un programa. Intente colocar algunos comandos de 
sonido dentro de su programa, aunque las colas de sonido 
tienen prioridad es bastante dificil asegurar un sonido con- 
tínuo. Fodemos preparar interrupciones de sonido para que se 
ejecute una subrutina de sonido cuando exista un espacio 
dentro de la cola de sonido. Como en otras subrutinas, al 
terminar, devuelve control a la posición en que se tomó la 
interrupción. Controlando la salida de sonido dentro de esta 
subrutina conseguimos que la facilidad de sonido funcione 
como una tarea secundaria del programa principal. Es posible 
disponer de interrupciones separadas con: 


ON SQ (x) GOSUB linea donde x toma los valores 1,2 
o 3 dependiendo del canal. 


Sin embargo, cuando ocurren interrupciones de sonido, o se 
ejecutan las sentencia SOUND oO SO, se imhabilitan estas 
interrupciones; de forma que, si deben continuar las 
interrupciones de sonido, deben rehabilitarse en las 
subrutinas de sonido. b 


Nuestro último programa nos demustra el uso de las 
interrupciones de sonido. El programa muestra una pantalla 
simple del tipo *arcade”, en la que un grupo de audaces 
alienigenas recorren continuamente la pantalla y se aproxi- 
man a la superficie de la tierra. Usted debe controlar el 
laser, usando la teclas de control del cursor a derecha e 
izquierda y [COFY] para disparar. El objetivo es destruir a 
todos los alienigenas antes de que aterricen pero cuidado, 
si dispara y falla, se unirá un nuevo alienigena a los ya 
presentes. 


Se ha preparado una interrupción de sonido para producir el 
rugido de los alienigenas - un buen incentivo para 
destruirlos rápidamente. Tenga en cuenta que la interrupción 
es detenida siempre que se llama la subrutina de sonido. 
Cuando un alienigena es destruido se emite otro tipo de 
sonido. Ya que queremos que este sonido se produzca 
inmediatamente, en vez de ponerlo al final de la cola de 
sonido, eliminamos la cola de sonido del canal poniendo el 
séptimo bit de estado de canal. Como antes, la interrupción 
de sonido se detiene. 


PROGRAMA 401 ATAQUE ALIENIGENA 


10 ENV 1,1,15,5,1,0,20,5,-7, 
20 ENT 1,10,1,1,40,-1,1,60,1 
O SPEED KEY 1,1 
40 INE 0,0 2: INE 1,24 3: INE 2,15 3 INK 3,13,22 
S0 FAFER O : EORDER O 
60 CLS 
70 2$ = CHR$(95) + CHR$(95) + CHR$(244) + 
CHR$ (95) + CHR*$ (95) 
80 p= 1:22 = 20: pp = 800 
90 t$ = "" 
100 FOR k = 1 TO 20 : t$ = t$ + SFACES(1) + 
CHR$ (225) : NEXT k 
110 FLOT 0,16 : DRAWR 6739,0,2 
120 ON BREAE GOSUB 800 
130 EVERY 500 GOSUBE 400 
140 ON SQ(1) GOSUB 1000 
150 FOR ¿y = 1 TO 40 


o 
- 
= 
sa 


160 FEN 7 

170 LOCATE 1,p : PRINT MID$(t$,35,40)¿MID$(t$,1,3- 
1) 

180 PEN 2 
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+ 
"" THEN 240 ELSE k = 


190 LOCATE 2,24 : PRINT 

200 k$ = INKEYS : IF k$ 
ASC (k$) 

210 IF INKEY(8)23-1 AND 233 THEN z = 2-2 

220 IF INKEY(1)<>-1 AND 2:36 THEN z = 2+2 

230 IF INKEY(9)<3-1 THEN GOSUE 600 

240 NEXT 3 

250 GOSURE 150 


Hor 





400 p = p+i 

410 pp = ppxo.9 

420 IF pi24 THEN 460 

430 LOCATE 12,25 

440 PFRINT "Invasión completa"; 

4530 GOTO 800 

460 LOCATE 1,P-1 : FRINT SPACES (40) 
470 RETURN 


600 y = j+z+1 3: IF v:40 THEN v = v-40 
610 q = ASC(MID$(t$,v, v)) 

620 MOVE 16*x2+22,259 1: DRAWR 0,380, 1 
630 FOR k = 1 TO SO : NEXT k 

640 DRAWR 0,-380,0 

650 IF qí:225 THEN 740 

660 LOCATE z+2,p : FRINT CHR$(228) 
670 SOUND 128+1,1000,40,15 

680 ON SQ(1) GOSUE 1000 

690 MID$(t$,v,v) = SFACES$(1) 

700 IF t$:>SFACE$(40) THEN 750 

710 LOCATE 12,25 

720 FRINT "Invasión repelida”"; 

730 GOTO 800 

740 MID$(t$,v,v) = CHR$(225) 

750 RETURN 


800 FRINT CHR$ (7) 
810 INE 1,24 : FEN 1 
820 SFEED KEY 10,3 
8z3o LOCATE 1,1 

840 END 


1000 SOUND 1,pp.-5,15,1,1 
1010 ON SQ(1) GOSUB 1000 
1020 RETURN 


Con esto damos por terminado el capitulo y el libro. Espero 
que, a medida que ha ido trabajando a través de los diez 
capitulos, haya incrementado su repertorio de programación y 
mejorado su técnica. Si es asi, los objetivos de este libro 
se han cumplido. 
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APENDICE A 
El JUEGO DE CARACTERES ASCII 


solo 


Y 


31 son caracteres de control 


se pueden imprimir si van precedidos por CHR$(1). 


Recuerde que del (0 al 








39 


1 
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APENDICE EB 
CODIGOS DE MANEJO DE TECLAS 


(usadas con INHEY) 


(9 e] [8] E] 83 la] 9 E) El SE B E Le Ea) 


a 
To] a] a (a 3 E] Y E E) 6 El E ES] 
(0 e y E H ts 6 E] 6] 6 E) (2: 





El 
Joystick 0 Joystick 1 
72 48 
74 —- 75 50 51 
73 49 
fire 1:77 fire 1:53 


fire2:76 fire 2: 52 
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COD. 


00 YO Moa dy A O 


APENDICE C 
CODIGOS DE COLOR 


COLOR 


Azul 

Azul Brillante 
Rojo 

Magenta 

Malva 

Rojo Brillante 
Fúrpura 
Magenta Brillante 
Verde 

“Cyan " 

Azul Cielo 
Amarillo 
Blanco 


COD. COLOR 

14 Azul Fastel 

S Naranja 

15 Rosa 

17 Magenta Fastel 
18 Verde Brillante 
19 Verde Mar 

20 "Cyan" Brillante 
21 Verde Lima 
22 Verde Fastel 

2 "Cyan" Pastel 

24 Amarillo Brillante 
25 Amarillo Pastel 
26 Blanco Brillante 
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APENDICE D 
CODIGOS DE ERROR 


COD. ERROR 

1 Unexpected NEXT 

2 Sintax error 

2  Unexpected RETURN 

4 DATA exhausted 

S Improper argument 

5 Overflow 

7 Memory full 

8 Line does not exist 

9 Subscript out of range 


Array already dimensioned 
Division by zero 

Invalid direct command 
Type mismatch 

String space full 

String too long 

String expression too complex 
Cannot CONTinue 

Unknown user funcion 
RESUME missing 

Unexpectéd RESUME 

Direct command found 


2 Operand missing 


Line too long 

EOF met 

File type error 
NEXT missing 

File already open 
Unlinown command 
WEND missing 
Unexpected WEND 
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NEXT inesperado 

Error de sintaxis 

RETURN inesperado 

Final de DATA 

Argumento impropio 
Rebasamiento 

Memoria llena 

No existe esa linea 
Subindice fuera de rango 
Matriz ya dimensionada 
División por cero 
Comando directo inválido 
Error al teclear 

Cadena llena 

Cadena demasiado larga 
Cadena muy compleja 

No puede CONTinuar 
Función desconocida 
RESUME perdido 

RESUME inesperado 
Encontrado comando directo 
Operando perdido 

Linea demasiado larga 
Encontrado EOF 

Tipo de fichero erróneo 
NEXT perdido 

Fichero abierto ya 
Comando desconocido 

WEND perdido 

WEND inesperado 


INDICE 
NOTA: Las definiciones de palabras clave del BASIC están en 


el capitulo 1. 


Las entradas en el 


indice son referencias 


seleccionadas que ilustran usos especificos de las palabras. 


ABS aaa als 
AFTER ao naa rana 
Alta resolución ........ 

AOLELO 0 ra RN 
AnimacióN ...ooooo o. ..o.o. % 


Apuntador (en listas) 
ANDOL uvas aeaisis 
ASC: macaco 
ASCII 

Ataque 
ATN 


BIN$ 


Canal 
Caracteres de control ... 
Cauces 
CHR$ 

Cinta 
Clasific. 
Clasific. 
Clasific. 


de burbuja +... 
alfabética ... 
de concha .... 
Clasific. inserción .... 
Clasific. rápida . 
Clasificando 
CLOSE IN 
CLOSEOUT 
Cola 
Color 
Comandos del 
Compilador 
COPY .. 
COS a 
A 
CREAL 


sistema NO 


DATA cocoocococcnosorcoocoso 
DEFINT .... 
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DEFREAL c..ooooooooo.. cana DO 
DEFSTR ...o...... a O 
DIM aja a 1 
DRAN ....... O EA 117 
DRAWR ..oooooooooo.. PA E Y 
ENT an Ad a TS 
ENTERO. aos rua 48 
ENV asas tes aro Sd 
Envolvente(sonido) ..... . 130 
Eloisa aaa varada aaa? 2d 
EVERY ds dress aa .. 74 
EXP ara otaa aaa aa tasa da 00 
Exponencial ......... a 48 
FibDONaccl ..oonoo... ia 66 
Fichero en cassette ..... 107 
Fichero maestrO ......... 107 
Fichero de transacciones 107 
O NO a . sl 
ERE aci OO so TES 
Frecuencia ....o.o.o.... sj Le 

Func. trigonométricaS .... 9 

Funciones de cadena +..... . 12 
Funciones de E/S ..oo.oo... 14 
Funciones del sistema .... 14 
Funciones matemáticas . 12,95 
Funciones numéricas ... 12,50 
GOSUR asias O 54 
GPATICOS dia ss . 99 
Gráf. def. usuario a 113 
HeuristicO: ..ecisssooucssdss 296 
HEXS ...... oa > 69 
HIMEM: sos. cs E aa 71 
INKEY ....... IAS 
INKEYS ...... aa tejane da 28 
INPUT arar e az 
Intérprete ...oo ooo... A 
Interrupción ..... A bn 
Interrupción de sonido 135 
INE aa a e 


KEY DEE oi E he 29 
LEFTS 1... at a 8 
EEN aras A NO 18 
LINE" INPUE cuasi 28 
Lista circular cisco» 87 
Lista encadenada ........ 83 
UNRCIND) ens e 93 
LOCATE > 2d an atadas 37 
A 56 
COI S6 
LOWNERS oca asas 2 
ERN CTDN) aa ra aa q 
Mapa de memoria ...... A 70 
Matrices: rasos data 7 

MAX a catas Si 
MEMORY a vita ias 71 
MENOS 0. ds as 38 
MID ana joa das 1 

MIN asias AAA í si 
MODE ai a Ed 
NLRSANTDI 550 aaa ase 973 
NOdOS nia aos 39 
Números aleatorioS ...... Ss 

Detoaton aia aii ala 59 
ON BREAE ima seta ias sa 74 
ON ERROR carcasas 77 
OPENIN ica ca 108 
OPENDU Ta acera camas 108 
ORIGIN «coca os e Us E 
FAFER ..... O RON 38 
PEE daa 7 
REN Aaa deta cnt 21 
EVA ade e a 87 
ELO Tias 117 
PORKE aia e Ao 72 
Pop (pila! ...oooooo.o.. RO =Vé 
ERIN canos acia 17332 
PRINT USING ...ooooooo.oo.. 32 
PRINT- ZONAS ire e eiis ce 32 
Programc. estructurada .. 28 
Punto: isis. E Ei 
PUShA (pul) ai 37 
RAM ...... Da E Z 
Ramales acercas aa alas 89 
RANDOMIZE carioca aaa rro a 
O A 48 


RecursiÓN ....oooooo oo... 04 

RELEASE aaa da dv ana 127 
RESUME ...... aa e 206 
RIGHTS: cani ia as 18 
RAND VS: 2 caian caian aia ca 

ROM aa ae : OE 2 
FOUND: roca rota ata a S 

Ruido blanco ......... . 128 
Sentencia asignamiento ... 7 
Sentencia de función ..... 10 
Sentencia gráfica ........ 10 
Sentencia de control ..... 7 
Sentencia de E/S ....oo... q 
Nina a 97 
SimulacióN ....o oo... s 505 
SIN odias a aaa 60 
Software del sistema ..... E 
SOSTOniIdO aaa ió 1731 
SOUND aire avere eater 126 
SPACES adoos aido acas ZO 
ARA a o caian 35 
SPEED: INK avis ias 43 
SPEED REV tasa aaa 29 
RN AO S 

SUR a a S 

UR ie aaa iaa 20 
STRINGS 0000 0 La 20 
SUDENOÍCS 10005 0 ne 79 
SNMBODL: 0 aaa 113 
SYMBOL AFTER 130.0... .cusa 113 
TAB. aros are racO SNE caian 2 
TAG ¿ci a as 123 
TAGOFE-< cia aa ó 123 
TAN ela ass O 61 
Tecla CONTROL. 0.050... . 26 
Tecla SHIFT ...... nia 2 
Teclas del cursor ..... 33,90 
WEST IA a 15 
TESTA asia ata 122 
DIME aa aaa 73 
Tono EE O an 125 
Trampas de error ....oo.o.. 77 
Transversal (árbol) ..... .. 90 
Tres dimensi0ne3 +........ 120 
UPRERS Diosas dorar 20 
VAL 2 ata aaa cat 20 
VAFIACIÓN oia aaa sz 
Ventanas: aan a ataca 44 
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SEGURAMENTE LO MEJOR 
PARA USTED Y SU 464 


Este libro es suficientemente bueno como para haber ganado la aprobación de 
AMSOFT, la división de productos de ordenadores de AMSTRAD. Una simple 
ojeada a este nuevo y espectacular libro de nuestro autor, le dirá porgué es tan 
bueno, y porqué lo necesitan todos los propietarios de un 464 como compañia 
constante. 


El libro asume que ya ha trabajado con el 464, y ha hecho algunos programas 
simples. Pero, aún a nivel simple, la organización del libro es atractiva, 
comienza con una descripción del funcionamiento del 464, como se comunica 
con los dispositivos externos, y una rápida revisión del BASIC. Contiene una 
sección de referencia para encontrar la explicación de los comandos de 
BASIC y las palabras clave del repertorio del Amstrad. 


Otras secciones importantes del libro cubren: CADENAS Y CARACTERES; 
ENTRADA/SALIDA; ARITMETICA; MAPA DE MEMORIA; TIEMPO; RELOJ 
E INTERRUPCIONES; ESTRUCTURAS DE DATOS; PROCESO DE DATOS; 
GRAFICOS; SONIDO. 


El libro contiene CUARENTA programas completos listos para ejecutar en el 
464, desde los pequeños de demostración del funcionamiento del 464, hasta los 
largos que cubren por si mismos el precio del libro. 


Se incluyen programas para: 
Descifrar códigos; 
Bases de datos simples; 
Clasificar información en cualquier orden; 
Trazar dibujos en tres dimensiones; 
Aplicaciones comerciales. 


Y, lo más espectacular de todo, un juego de tipo “arcade espacial” y un 
programa completo de SINT ETIZADOR DESONIDO. 


TOUS TOD, «> NOSRRIVH Mv w + Orina T30 vino + YO Y DAD VEL TIO VOVAN WI 
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